BBS in a Box 11

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / Hyper / F / Financial Portfolio 3.1.sit / Financial Portfolio stack ƒ / Financial Portfolio v3.1 < prev next >
MacBinary | 1993-12-23 | 453.8 KB | [STAK/WILD]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Financial Portfolio v3.1
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	HyperCard Stack `(archive/hypercard)`	idMeta	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	PageFocus Data `(other/pageFocusData)`	ext	Unsupported
`1%`	dexvert	Banyans VINES patch data `(other/banyansVINESPatchData)`	ext	Unsupported
`100%`	file	MacBinary II, inited, Thu Dec 23 10:12:18 1993, modified Thu Dec 23 10:12:18 1993, creator HyperCard, type HyperCard stack, 334048 bytes "Financial Portfolio v3.1" , at 0x51960 130347 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Mac HyperCard stack (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	dexmagic	Picasso 64 Image	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[STAK]`
macFileCreator	`[WILD]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 18 46 69 6e 61 6e 63 | 69 61 6c 20 50 6f 72 74 |..Financ|ial Port|
|00000010| 66 6f 6c 69 6f 20 76 33 | 2e 31 00 00 00 00 00 00 |folio v3|.1......|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 54 41 4b 57 49 4c | 44 01 00 00 00 00 00 00 |.STAKWIL|D.......|
|00000050| 00 00 00 00 05 18 e0 00 | 01 fd 2b a9 3f 65 d2 a9 |........|..+.?e..|
|00000060| 3f 65 d2 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |?e......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 08 63 00 00 |........|.....c..|
|00000080| 00 00 72 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |..r.STAK|........|
|00000090| 00 00 00 0a 00 05 18 e0 | 00 00 72 00 00 00 00 00 |........|..r.....|
|000000a0| 00 00 00 01 00 00 00 11 | 00 00 0a a2 00 00 00 27 |........|.......'|
|000000b0| 00 00 0b cc 00 00 13 f3 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 35 97 00 00 00 00 | 00 05 00 00 10 00 00 00 |..5.....|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 02 01 80 00 02 10 80 00 | 02 10 80 00 02 10 80 00 |........|........|
|000000f0| dc 61 df c7 00 00 00 02 | 00 4f 00 30 01 a5 02 30 |.a......|.O.0...0|
|00000100| 00 00 00 00 03 66 02 80 | 00 00 00 00 00 00 00 00 |.....f..|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 0d 7e 00 00 0c ae | 01 56 02 00 00 00 00 00 |...~....|.V......|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|00000350| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|00000360| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|00000370| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000380| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 2d 2d 20 20 20 20 a5 20 | a5 20 46 69 6e 61 6e 63 |--    . |. Financ|
|00000690| 69 61 6c 20 50 6f 72 74 | 66 6f 6c 69 6f 20 a5 20 |ial Port|folio . |
|000006a0| a5 0d 2d 2d 0d 2d 2d 20 | 20 62 79 20 4d 69 63 68 |..--.-- | by Mich|
|000006b0| 61 65 6c 20 4a 2e 20 46 | 6f 72 65 6d 61 6e 2c 20 |ael J. F|oreman, |
|000006c0| 31 39 39 33 0d 2d 2d 20 | 20 50 6c 65 61 73 65 20 |1993.-- | Please |
|000006d0| 73 65 6e 64 20 6d 65 20 | 66 65 65 64 62 61 63 6b |send me |feedback|
|000006e0| 3a 20 41 6d 65 72 69 63 | 61 20 4f 6e 6c 69 6e 65 |: Americ|a Online|
|000006f0| 3a 20 22 4b 69 64 20 44 | 6f 63 74 6f 72 22 0d 0d |: "Kid D|octor"..|
|00000700| 6f 6e 20 6f 70 65 6e 53 | 74 61 63 6b 0d 73 65 6e |on openS|tack.sen|
|00000710| 64 20 6f 70 65 6e 53 74 | 61 63 6b 20 74 6f 20 66 |d openSt|ack to f|
|00000720| 6c 64 20 22 73 63 72 69 | 70 74 65 72 22 20 6f 66 |ld "scri|pter" of|
|00000730| 20 63 64 20 31 0d 70 61 | 73 73 20 6f 70 65 6e 53 | cd 1.pa|ss openS|
|00000740| 74 61 63 6b 0d 65 6e 64 | 20 6f 70 65 6e 53 74 61 |tack.end| openSta|
|00000750| 63 6b 0d 0d 6f 6e 20 63 | 6c 6f 73 65 53 74 61 63 |ck..on c|loseStac|
|00000760| 6b 0d 73 65 6e 64 20 63 | 6c 6f 73 65 53 74 61 63 |k.send c|loseStac|
|00000770| 6b 20 74 6f 20 66 6c 64 | 20 22 73 63 72 69 70 74 |k to fld| "script|
|00000780| 65 72 22 20 6f 66 20 63 | 64 20 31 0d 70 61 73 73 |er" of c|d 1.pass|
|00000790| 20 63 6c 6f 73 65 53 74 | 61 63 6b 0d 65 6e 64 20 | closeSt|ack.end |
|000007a0| 63 6c 6f 73 65 53 74 61 | 63 6b 0d 0d 6f 6e 20 45 |closeSta|ck..on E|
|000007b0| 54 48 0d 65 78 69 74 20 | 74 6f 20 48 79 70 65 72 |TH.exit |to Hyper|
|000007c0| 43 61 72 64 0d 65 6e 64 | 20 45 54 48 0d 0d 6f 6e |Card.end| ETH..on|
|000007d0| 20 61 72 72 6f 77 4b 65 | 79 20 64 75 6d 6d 79 0d | arrowKe|y dummy.|
|000007e0| 2d 2d 0d 65 6e 64 20 61 | 72 72 6f 77 4b 65 79 0d |--.end a|rrowKey.|
|000007f0| 0d 6f 6e 20 73 68 6f 77 | 54 6f 6f 6c 73 0d 69 66 |.on show|Tools.if|
|00000800| 20 74 68 65 72 65 20 69 | 73 20 61 20 77 69 6e 64 | there i|s a wind|
|00000810| 6f 77 20 22 74 6f 6f 6c | 65 72 22 20 74 68 65 6e |ow "tool|er" then|
|00000820| 0d 70 75 74 20 77 69 6e | 64 6f 77 73 63 72 69 70 |.put win|dowscrip|
|00000830| 74 28 22 54 6f 6f 6c 73 | 20 4f 70 65 6e 22 2c 57 |t("Tools| Open",W|
|00000840| 53 54 6f 70 4c 65 66 74 | 28 32 32 30 2c 31 38 30 |STopLeft|(220,180|
|00000850| 29 29 20 69 6e 74 6f 20 | 72 72 0d 69 66 20 6c 69 |)) into |rr.if li|
|00000860| 6e 65 20 31 20 6f 66 20 | 72 72 3d 22 4f 4b 22 20 |ne 1 of |rr="OK" |
|00000870| 74 68 65 6e 0d 77 73 53 | 65 6e 64 20 22 74 6f 6f |then.wsS|end "too|
|00000880| 6c 65 72 22 2c 30 2c 22 | 63 6c 6f 73 65 22 0d 65 |ler",0,"|close".e|
|00000890| 6c 73 65 0d 45 54 48 0d | 65 6e 64 20 69 66 0d 65 |lse.ETH.|end if.e|
|000008a0| 6e 64 20 69 66 0d 70 6c | 61 63 65 54 6f 6f 6c 73 |nd if.pl|aceTools|
|000008b0| 0d 65 6e 64 20 73 68 6f | 77 54 6f 6f 6c 73 0d 0d |.end sho|wTools..|
|000008c0| 6f 6e 20 70 6c 61 63 65 | 54 6f 6f 6c 73 0d 67 6c |on place|Tools.gl|
|000008d0| 6f 62 61 6c 20 77 69 64 | 65 54 6f 6f 6c 73 0d 69 |obal wid|eTools.i|
|000008e0| 66 20 77 69 64 65 54 6f | 6f 6c 73 3d 65 6d 70 74 |f wideTo|ols=empt|
|000008f0| 79 20 74 68 65 6e 20 70 | 75 74 20 74 68 65 20 68 |y then p|ut the h|
|00000900| 69 6c 69 74 65 20 6f 66 | 20 63 64 20 62 74 6e 20 |ilite of| cd btn |
|00000910| 69 64 20 37 31 20 6f 66 | 20 63 64 20 22 70 72 65 |id 71 of| cd "pre|
|00000920| 66 73 22 20 69 6e 74 6f | 20 77 69 64 65 54 6f 6f |fs" into| wideToo|
|00000930| 6c 73 0d 70 75 74 20 28 | 28 69 74 65 6d 20 33 20 |ls.put (|(item 3 |
|00000940| 6f 66 20 74 68 65 20 73 | 63 72 65 65 6e 52 65 63 |of the s|creenRec|
|00000950| 74 29 2d 39 30 26 22 2c | 33 32 22 29 20 69 6e 74 |t)-90&",|32") int|
|00000960| 6f 20 54 4c 0d 67 65 74 | 20 77 69 6e 64 6f 77 73 |o TL.get| windows|
|00000970| 63 72 69 70 74 28 22 74 | 6f 6f 6c 65 72 22 2c 54 |cript("t|ooler",T|
|00000980| 4c 29 0d 73 65 74 20 69 | 32 5f 6e 61 6d 65 20 6f |L).set i|2_name o|
|00000990| 66 20 77 69 6e 64 6f 77 | 20 22 74 6f 6f 6c 65 72 |f window| "tooler|
|000009a0| 22 20 74 6f 20 63 64 20 | 66 6c 64 20 22 53 70 65 |" to cd |fld "Spe|
|000009b0| 65 64 63 68 6f 69 63 65 | 31 22 20 6f 66 20 63 64 |edchoice|1" of cd|
|000009c0| 20 22 70 72 65 66 73 22 | 0d 73 65 74 20 69 33 5f | "prefs"|.set i3_|
|000009d0| 6e 61 6d 65 20 6f 66 20 | 77 69 6e 64 6f 77 20 22 |name of |window "|
|000009e0| 74 6f 6f 6c 65 72 22 20 | 74 6f 20 63 64 20 66 6c |tooler" |to cd fl|
|000009f0| 64 20 22 53 70 65 65 64 | 63 68 6f 69 63 65 32 22 |d "Speed|choice2"|
|00000a00| 20 6f 66 20 63 64 20 22 | 70 72 65 66 73 22 0d 69 | of cd "|prefs".i|
|00000a10| 66 20 77 69 64 65 54 6f | 6f 6c 73 3d 22 74 72 75 |f wideTo|ols="tru|
|00000a20| 65 22 20 74 68 65 6e 20 | 73 65 6e 64 20 54 6f 6f |e" then |send Too|
|00000a30| 6c 65 72 5f 7a 6f 6f 6d | 4f 75 74 20 74 6f 20 77 |ler_zoom|Out to w|
|00000a40| 69 6e 64 6f 77 20 22 54 | 6f 6f 6c 65 72 22 0d 65 |indow "T|ooler".e|
|00000a50| 6e 64 20 70 6c 61 63 65 | 54 6f 6f 6c 73 0d 0d 6f |nd place|Tools..o|
|00000a60| 6e 20 65 6e 74 65 72 53 | 70 65 65 64 43 68 6f 69 |n enterS|peedChoi|
|00000a70| 63 65 73 0d 69 66 20 74 | 68 65 72 65 20 69 73 20 |ces.if t|here is |
|00000a80| 61 20 77 69 6e 64 6f 77 | 20 22 74 6f 6f 6c 65 72 |a window| "tooler|
|00000a90| 22 20 74 68 65 6e 0d 73 | 65 74 20 69 32 5f 6e 61 |" then.s|et i2_na|
|00000aa0| 6d 65 20 6f 66 20 77 69 | 6e 64 6f 77 20 22 74 6f |me of wi|ndow "to|
|00000ab0| 6f 6c 65 72 22 20 74 6f | 20 63 64 20 66 6c 64 20 |oler" to| cd fld |
|00000ac0| 22 53 70 65 65 64 63 68 | 6f 69 63 65 31 22 20 6f |"Speedch|oice1" o|
|00000ad0| 66 20 63 64 20 22 70 72 | 65 66 73 22 0d 73 65 74 |f cd "pr|efs".set|
|00000ae0| 20 69 33 5f 6e 61 6d 65 | 20 6f 66 20 77 69 6e 64 | i3_name| of wind|
|00000af0| 6f 77 20 22 74 6f 6f 6c | 65 72 22 20 74 6f 20 63 |ow "tool|er" to c|
|00000b00| 64 20 66 6c 64 20 22 53 | 70 65 65 64 63 68 6f 69 |d fld "S|peedchoi|
|00000b10| 63 65 32 22 20 6f 66 20 | 63 64 20 22 70 72 65 66 |ce2" of |cd "pref|
|00000b20| 73 22 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 65 6e |s".end i|f.end en|
|00000b30| 74 65 72 53 70 65 65 64 | 43 68 6f 69 63 65 73 0d |terSpeed|Choices.|
|00000b40| 0d 6f 6e 20 74 6f 6f 6c | 48 69 74 20 77 64 49 44 |.on tool|Hit wdID|
|00000b50| 2c 77 64 4e 61 6d 65 2c | 6f 62 6a 4e 6f 2c 6f 62 |,wdName,|objNo,ob|
|00000b60| 6a 4e 61 6d 65 2c 6f 62 | 6a 56 61 6c 75 65 0d 69 |jName,ob|jValue.i|
|00000b70| 66 20 28 74 68 65 72 65 | 20 69 73 20 6e 6f 74 20 |f (there| is not |
|00000b80| 61 20 62 67 20 62 75 74 | 74 6f 6e 20 22 c8 22 29 |a bg but|ton ".")|
|00000b90| 20 61 6e 64 20 28 6f 62 | 6a 4e 61 6d 65 ad 22 74 | and (ob|jName."t|
|00000ba0| 6f 6f 6c 65 72 22 29 20 | 74 68 65 6e 20 2d 2d 20 |ooler") |then -- |
|00000bb0| 4f 4b 20 69 66 20 7a 6f | 6f 6d 20 6f 72 20 63 6c |OK if zo|om or cl|
|00000bc0| 6f 73 65 20 74 6f 6f 6c | 65 72 0d 61 6c 65 72 74 |ose tool|er.alert|
|00000bd0| 4e 6f 74 65 28 22 59 6f | 75 20 6e 65 65 64 20 74 |Note("Yo|u need t|
|00000be0| 6f 20 61 63 74 20 6f 6e | 20 74 68 69 73 20 65 6e |o act on| this en|
|00000bf0| 74 72 79 20 28 72 65 63 | 6f 72 64 2c 20 63 61 6e |try (rec|ord, can|
|00000c00| 63 65 6c 2c 20 65 74 63 | 2e 29 20 62 65 66 6f 72 |cel, etc|.) befor|
|00000c10| 65 20 6d 6f 76 69 6e 67 | 20 6f 6e 2e 22 29 0d 65 |e moving| on.").e|
|00000c20| 78 69 74 20 74 6f 6f 6c | 48 69 74 0d 65 6e 64 20 |xit tool|Hit.end |
|00000c30| 69 66 0d 67 6c 6f 62 61 | 6c 20 63 61 72 64 46 72 |if.globa|l cardFr|
|00000c40| 6f 6d 0d 69 66 20 6f 62 | 6a 56 61 6c 75 65 3d 22 |om.if ob|jValue="|
|00000c50| 52 65 70 61 69 72 22 20 | 74 68 65 6e 0d 72 65 70 |Repair" |then.rep|
|00000c60| 61 69 72 49 74 0d 65 78 | 69 74 20 74 6f 6f 6c 48 |airIt.ex|it toolH|
|00000c70| 69 74 0d 65 6e 64 20 69 | 66 0d 69 66 20 6f 62 6a |it.end i|f.if obj|
|00000c80| 56 61 6c 75 65 3d 22 54 | 69 74 6c 65 22 20 74 68 |Value="T|itle" th|
|00000c90| 65 6e 0d 76 69 73 75 61 | 6c 20 69 72 69 73 20 6f |en.visua|l iris o|
|00000ca0| 70 65 6e 20 66 61 73 74 | 0d 67 6f 20 63 64 20 22 |pen fast|.go cd "|
|00000cb0| 54 69 74 6c 65 22 0d 65 | 6e 64 20 69 66 0d 69 66 |Title".e|nd if.if|
|00000cc0| 20 6f 62 6a 56 61 6c 75 | 65 3d 22 50 72 65 66 73 | objValu|e="Prefs|
|00000cd0| 22 20 74 68 65 6e 0d 70 | 75 74 20 74 68 65 20 6e |" then.p|ut the n|
|00000ce0| 61 6d 65 20 6f 66 20 74 | 68 69 73 20 63 64 20 69 |ame of t|his cd i|
|00000cf0| 6e 74 6f 20 63 61 72 64 | 66 72 6f 6d 0d 76 69 73 |nto card|from.vis|
|00000d00| 75 61 6c 20 69 72 69 73 | 20 6f 70 65 6e 20 66 61 |ual iris| open fa|
|00000d10| 73 74 0d 67 6f 20 63 64 | 20 22 50 72 65 66 73 22 |st.go cd| "Prefs"|
|00000d20| 0d 65 6e 64 20 69 66 0d | 69 66 20 6f 62 6a 56 61 |.end if.|if objVa|
|00000d30| 6c 75 65 3d 22 43 61 74 | 65 67 6f 72 79 22 20 74 |lue="Cat|egory" t|
|00000d40| 68 65 6e 0d 70 75 74 20 | 57 53 54 6f 70 4c 65 66 |hen.put |WSTopLef|
|00000d50| 74 28 33 32 30 2c 31 30 | 39 29 20 69 6e 74 6f 20 |t(320,10|9) into |
|00000d60| 54 4c 0d 67 65 74 20 77 | 69 6e 64 6f 77 73 63 72 |TL.get w|indowscr|
|00000d70| 69 70 74 28 22 4e 65 77 | 20 43 61 74 65 67 6f 72 |ipt("New| Categor|
|00000d80| 79 22 2c 22 41 73 73 65 | 74 22 2c 54 4c 29 0d 65 |y","Asse|t",TL).e|
|00000d90| 6e 64 20 69 66 0d 69 66 | 20 6f 62 6a 56 61 6c 75 |nd if.if| objValu|
|00000da0| 65 3d 22 44 65 74 61 69 | 6c 22 20 74 68 65 6e 20 |e="Detai|l" then |
|00000db0| 61 64 64 49 74 65 6d 0d | 69 66 20 6f 62 6a 56 61 |addItem.|if objVa|
|00000dc0| 6c 75 65 3d 22 52 65 70 | 6f 72 74 22 20 74 68 65 |lue="Rep|ort" the|
|00000dd0| 6e 20 6d 61 6b 65 4e 65 | 77 52 65 70 6f 72 74 0d |n makeNe|wReport.|
|00000de0| 69 66 20 28 6f 62 6a 4e | 6f 3d 32 29 20 6f 72 20 |if (objN|o=2) or |
|00000df0| 28 6f 62 6a 4e 6f 3d 33 | 29 20 74 68 65 6e 0d 70 |(objNo=3|) then.p|
|00000e00| 75 74 20 6f 62 6a 56 61 | 6c 75 65 20 69 6e 74 6f |ut objVa|lue into|
|00000e10| 20 70 69 63 6b 65 72 0d | 69 66 20 70 69 63 6b 65 | picker.|if picke|
|00000e20| 72 3d 22 4e 65 74 20 77 | 6f 72 74 68 22 20 74 68 |r="Net w|orth" th|
|00000e30| 65 6e 20 70 75 74 20 22 | 4e 65 74 77 6f 72 74 68 |en put "|Networth|
|00000e40| 22 20 69 6e 74 6f 20 70 | 69 63 6b 65 72 0d 69 66 |" into p|icker.if|
|00000e50| 20 70 69 63 6b 65 72 3d | 22 53 74 6f 63 6b 20 70 | picker=|"Stock p|
|00000e60| 6f 72 74 66 6f 6c 69 6f | 20 73 75 6d 6d 61 72 79 |ortfolio| summary|
|00000e70| 22 20 74 68 65 6e 20 70 | 75 74 20 22 73 74 6f 63 |" then p|ut "stoc|
|00000e80| 6b 70 6f 72 74 22 20 69 | 6e 74 6f 20 70 69 63 6b |kport" i|nto pick|
|00000e90| 65 72 0d 76 69 73 75 61 | 6c 20 69 72 69 73 20 6f |er.visua|l iris o|
|00000ea0| 70 65 6e 20 66 61 73 74 | 0d 67 6f 20 63 64 20 70 |pen fast|.go cd p|
|00000eb0| 69 63 6b 65 72 0d 65 6e | 64 20 69 66 0d 65 6e 64 |icker.en|d if.end|
|00000ec0| 20 74 6f 6f 6c 48 69 74 | 0d 0d 6f 6e 20 68 65 6c | toolHit|..on hel|
|00000ed0| 70 20 2d 2d 20 22 68 65 | 6c 70 22 20 6b 65 79 0d |p -- "he|lp" key.|
|00000ee0| 73 65 6e 64 20 68 65 6c | 70 20 74 6f 20 66 6c 64 |send hel|p to fld|
|00000ef0| 20 22 73 63 72 69 70 74 | 65 72 22 20 6f 66 20 63 | "script|er" of c|
|00000f00| 64 20 31 0d 65 6e 64 20 | 68 65 6c 70 0d 0d 6f 6e |d 1.end |help..on|
|00000f10| 20 68 65 6c 70 65 72 0d | 73 65 6e 64 20 68 65 6c | helper.|send hel|
|00000f20| 70 65 72 20 74 6f 20 66 | 6c 64 20 22 73 63 72 69 |per to f|ld "scri|
|00000f30| 70 74 65 72 22 20 6f 66 | 20 63 64 20 31 0d 65 6e |pter" of| cd 1.en|
|00000f40| 64 20 68 65 6c 70 65 72 | 0d 0d 6f 6e 20 68 65 6c |d helper|..on hel|
|00000f50| 70 48 69 74 20 77 64 49 | 44 2c 77 64 4e 61 6d 65 |pHit wdI|D,wdName|
|00000f60| 2c 6f 62 6a 4e 6f 2c 6f | 62 6a 4e 61 6d 65 2c 6f |,objNo,o|bjName,o|
|00000f70| 62 6a 56 61 6c 75 65 0d | 69 66 20 28 6f 62 6a 56 |bjValue.|if (objV|
|00000f80| 61 6c 75 65 3d 22 43 6c | 6f 73 65 22 29 20 6f 72 |alue="Cl|ose") or|
|00000f90| 20 28 6f 62 6a 4e 61 6d | 65 3d 22 48 69 64 65 20 | (objNam|e="Hide |
|00000fa0| 48 65 6c 70 22 29 20 74 | 68 65 6e 20 63 6c 6f 73 |Help") t|hen clos|
|00000fb0| 65 48 65 6c 70 0d 69 66 | 20 28 6f 62 6a 56 61 6c |eHelp.if| (objVal|
|00000fc0| 75 65 3d 22 63 61 6e 63 | 65 6c 22 29 20 6f 72 20 |ue="canc|el") or |
|00000fd0| 28 6f 62 6a 4e 61 6d 65 | 3d 22 63 61 6e 63 65 6c |(objName|="cancel|
|00000fe0| 22 29 20 74 68 65 6e 20 | 63 6c 6f 73 65 48 65 6c |") then |closeHel|
|00000ff0| 70 0d 69 66 20 6f 62 6a | 56 61 6c 75 65 3d 22 50 |p.if obj|Value="P|
|00001000| 72 69 6e 74 20 74 68 69 | 73 20 73 63 72 65 65 6e |rint thi|s screen|
|00001010| 22 20 74 68 65 6e 0d 73 | 65 6e 64 20 70 72 69 6e |" then.s|end prin|
|00001020| 74 54 68 69 73 48 65 6c | 70 20 74 6f 20 66 6c 64 |tThisHel|p to fld|
|00001030| 20 22 73 63 72 69 70 74 | 65 72 22 20 6f 66 20 63 | "script|er" of c|
|00001040| 64 20 31 0d 65 6e 64 20 | 69 66 0d 69 66 20 6f 62 |d 1.end |if.if ob|
|00001050| 6a 56 61 6c 75 65 3d 22 | 43 72 65 61 74 65 20 48 |jValue="|Create H|
|00001060| 65 6c 70 20 42 6f 6f 6b | 6c 65 74 22 20 74 68 65 |elp Book|let" the|
|00001070| 6e 0d 73 65 6e 64 20 70 | 72 69 6e 74 41 6c 6c 48 |n.send p|rintAllH|
|00001080| 65 6c 70 20 74 6f 20 66 | 6c 64 20 22 73 63 72 69 |elp to f|ld "scri|
|00001090| 70 74 65 72 22 20 6f 66 | 20 63 64 20 31 0d 65 6e |pter" of| cd 1.en|
|000010a0| 64 20 69 66 0d 65 6e 64 | 20 68 65 6c 70 48 69 74 |d if.end| helpHit|
|000010b0| 0d 0d 6f 6e 20 63 6c 6f | 73 65 48 65 6c 70 20 57 |..on clo|seHelp W|
|000010c0| 4e 61 6d 65 2c 57 49 64 | 0d 67 6c 6f 62 61 6c 20 |Name,WId|.global |
|000010d0| 67 55 73 65 72 2c 77 68 | 65 72 65 46 72 6f 6d 2c |gUser,wh|ereFrom,|
|000010e0| 77 69 6e 64 6f 69 64 52 | 65 63 74 0d 69 66 20 74 |windoidR|ect.if t|
|000010f0| 68 65 72 65 20 69 73 20 | 61 20 77 69 6e 64 6f 77 |here is |a window|
|00001100| 20 22 48 65 6c 70 22 20 | 74 68 65 6e 0d 67 65 74 | "Help" |then.get|
|00001110| 20 48 65 6c 70 5f 72 65 | 63 74 20 6f 66 20 77 69 | Help_re|ct of wi|
|00001120| 6e 64 6f 77 20 22 48 65 | 6c 70 22 0d 70 75 74 20 |ndow "He|lp".put |
|00001130| 69 74 20 69 6e 74 6f 20 | 77 69 6e 64 6f 69 64 52 |it into |windoidR|
|00001140| 65 63 74 20 2d 2d 20 73 | 74 6f 72 65 20 66 6f 72 |ect -- s|tore for|
|00001150| 20 6e 65 78 74 20 63 61 | 6c 6c 2d 75 70 0d 70 75 | next ca|ll-up.pu|
|00001160| 74 20 77 69 6e 64 6f 69 | 64 52 65 63 74 20 69 6e |t windoi|dRect in|
|00001170| 74 6f 20 63 64 20 66 6c | 64 20 22 68 65 6c 70 52 |to cd fl|d "helpR|
|00001180| 65 63 74 22 20 6f 66 20 | 63 64 20 22 70 72 65 66 |ect" of |cd "pref|
|00001190| 73 22 0d 69 66 20 28 67 | 55 73 65 72 3d 22 4d 69 |s".if (g|User="Mi|
|000011a0| 63 68 61 65 6c 20 4a 2e | 20 46 6f 72 65 6d 61 6e |chael J.| Foreman|
|000011b0| 22 29 20 61 6e 64 20 28 | 74 68 65 20 6f 70 74 69 |") and (|the opti|
|000011c0| 6f 6e 4b 65 79 20 69 73 | 20 75 70 29 20 74 68 65 |onKey is| up) the|
|000011d0| 6e 0d 2d 2d 20 6f 6e 6c | 79 20 73 61 76 65 20 c6 |n.-- onl|y save .|
|000011e0| 73 20 6f 6e 20 6d 79 20 | 6f 77 6e 20 73 74 61 63 |s on my |own stac|
|000011f0| 6b 20 77 69 74 68 20 6f | 70 74 69 6f 6e 20 6b 65 |k with o|ption ke|
|00001200| 79 20 75 70 0d 69 66 20 | 74 68 65 72 65 20 69 73 |y up.if |there is|
|00001210| 20 61 20 63 64 20 77 68 | 65 72 65 66 72 6f 6d 20 | a cd wh|erefrom |
|00001220| 74 68 65 6e 20 2d 2d 20 | 70 72 65 76 65 6e 74 20 |then -- |prevent |
|00001230| 57 53 20 65 72 72 6f 72 | 0d 67 65 74 20 74 68 65 |WS error|.get the|
|00001240| 54 65 78 74 5f 74 65 78 | 74 20 6f 66 20 57 69 6e |Text_tex|t of Win|
|00001250| 64 6f 77 20 22 48 65 6c | 70 22 0d 70 75 74 20 69 |dow "Hel|p".put i|
|00001260| 74 20 69 6e 74 6f 20 78 | 78 0d 70 75 74 20 78 78 |t into x|x.put xx|
|00001270| 20 69 6e 74 6f 20 66 6c | 64 20 22 48 65 6c 70 54 | into fl|d "HelpT|
|00001280| 65 78 74 22 20 6f 66 20 | 63 64 20 77 68 65 72 65 |ext" of |cd where|
|00001290| 46 72 6f 6d 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |From.end| if.end |
|000012a0| 69 66 0d 77 73 53 65 6e | 64 20 22 48 65 6c 70 22 |if.wsSen|d "Help"|
|000012b0| 2c 30 2c 22 63 6c 6f 73 | 65 22 0d 70 75 74 20 65 |,0,"clos|e".put e|
|000012c0| 6d 70 74 79 20 69 6e 74 | 6f 20 77 68 65 72 65 46 |mpty int|o whereF|
|000012d0| 72 6f 6d 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 63 |rom.end |if.end c|
|000012e0| 6c 6f 73 65 48 65 6c 70 | 0d 0d 6f 6e 20 61 6c 65 |loseHelp|..on ale|
|000012f0| 72 74 4e 6f 74 65 20 74 | 68 65 4e 6f 74 65 0d 70 |rtNote t|heNote.p|
|00001300| 75 74 20 57 53 54 6f 70 | 4c 65 66 74 28 32 32 30 |ut WSTop|Left(220|
|00001310| 2c 31 38 30 29 20 69 6e | 74 6f 20 54 4c 0d 67 65 |,180) in|to TL.ge|
|00001320| 74 20 77 69 6e 64 6f 77 | 73 63 72 69 70 74 28 41 |t window|script(A|
|00001330| 6c 65 72 74 2c 54 4c 2c | 74 68 65 4e 6f 74 65 29 |lert,TL,|theNote)|
|00001340| 0d 65 6e 64 20 61 6c 65 | 72 74 4e 6f 74 65 0d 0d |.end ale|rtNote..|
|00001350| 66 75 6e 63 74 69 6f 6e | 20 70 72 69 6e 74 43 68 |function| printCh|
|00001360| 65 63 6b 20 6e 6f 74 65 | 2c 64 69 73 61 62 6c 65 |eck note|,disable|
|00001370| 64 0d 70 75 74 20 77 69 | 6e 64 6f 77 53 63 72 69 |d.put wi|ndowScri|
|00001380| 70 74 28 22 50 72 69 6e | 74 20 52 65 70 6f 72 74 |pt("Prin|t Report|
|00001390| 22 2c 57 53 54 6f 70 4c | 65 66 74 28 33 30 30 2c |",WSTopL|eft(300,|
|000013a0| 32 30 30 29 2c 6e 6f 74 | 65 2c 64 69 73 61 62 6c |200),not|e,disabl|
|000013b0| 65 64 29 20 69 6e 74 6f | 20 71 71 0d 70 75 74 20 |ed) into| qq.put |
|000013c0| 6c 69 6e 65 20 31 20 6f | 66 20 71 71 20 69 6e 74 |line 1 o|f qq int|
|000013d0| 6f 20 71 71 71 71 0d 69 | 66 20 71 71 71 71 3d 22 |o qqqq.i|f qqqq="|
|000013e0| 63 61 6e 63 65 6c 22 20 | 6f 72 20 71 71 71 71 3d |cancel" |or qqqq=|
|000013f0| 65 6d 70 74 79 20 74 68 | 65 6e 0d 72 65 74 75 72 |empty th|en.retur|
|00001400| 6e 20 65 6d 70 74 79 0d | 65 6c 73 65 0d 69 66 20 |n empty.|else.if |
|00001410| 6c 69 6e 65 20 32 20 6f | 66 20 71 71 3d 22 74 72 |line 2 o|f qq="tr|
|00001420| 75 65 22 20 74 68 65 6e | 0d 72 65 74 75 72 6e 20 |ue" then|.return |
|00001430| 6e 6f 74 65 26 26 22 6e | 6f 6e 6f 74 65 22 0d 65 |note&&"n|onote".e|
|00001440| 6c 73 65 0d 72 65 74 75 | 72 6e 20 6e 6f 74 65 0d |lse.retu|rn note.|
|00001450| 65 6e 64 20 69 66 0d 65 | 6e 64 20 69 66 0d 65 6e |end if.e|nd if.en|
|00001460| 64 20 70 72 69 6e 74 43 | 68 65 63 6b 0d 0d 6f 6e |d printC|heck..on|
|00001470| 20 6d 61 6b 65 50 72 6f | 67 72 65 73 73 20 74 65 | makePro|gress te|
|00001480| 78 74 46 6f 72 49 74 0d | 70 75 74 20 57 53 54 6f |xtForIt.|put WSTo|
|00001490| 70 4c 65 66 74 28 33 31 | 30 2c 35 30 29 20 69 6e |pLeft(31|0,50) in|
|000014a0| 74 6f 20 54 4c 0d 67 65 | 74 20 77 69 6e 64 6f 77 |to TL.ge|t window|
|000014b0| 73 63 72 69 70 74 28 22 | 50 72 6f 67 72 65 73 73 |script("|Progress|
|000014c0| 62 61 72 22 2c 54 4c 29 | 0d 77 73 53 65 74 20 22 |bar",TL)|.wsSet "|
|000014d0| 50 72 6f 67 72 65 73 73 | 42 61 72 22 2c 22 74 68 |Progress|Bar","th|
|000014e0| 65 54 65 78 74 22 2c 22 | 74 65 78 74 22 2c 74 65 |eText","|text",te|
|000014f0| 78 74 46 6f 72 49 74 0d | 77 73 53 65 74 20 22 50 |xtForIt.|wsSet "P|
|00001500| 72 6f 67 72 65 73 73 42 | 61 72 22 2c 22 62 61 72 |rogressB|ar","bar|
|00001510| 22 2c 22 6d 61 78 22 2c | 20 22 31 30 30 22 0d 77 |","max",| "100".w|
|00001520| 73 53 65 74 20 22 50 72 | 6f 67 72 65 73 73 42 61 |sSet "Pr|ogressBa|
|00001530| 72 22 2c 22 62 61 72 22 | 2c 22 6d 69 6e 22 2c 20 |r","bar"|,"min", |
|00001540| 22 30 22 0d 77 73 53 65 | 74 20 22 50 72 6f 67 72 |"0".wsSe|t "Progr|
|00001550| 65 73 73 42 61 72 22 2c | 22 62 61 72 22 2c 22 56 |essBar",|"bar","V|
|00001560| 61 6c 75 65 22 2c 20 22 | 30 22 0d 65 6e 64 20 6d |alue", "|0".end m|
|00001570| 61 6b 65 50 72 6f 67 72 | 65 73 73 0d 0d 6f 6e 20 |akeProgr|ess..on |
|00001580| 68 69 64 65 50 72 6f 67 | 72 65 73 73 0d 67 6c 6f |hideProg|ress.glo|
|00001590| 62 61 6c 20 68 69 64 65 | 4e 6f 74 0d 69 66 20 68 |bal hide|Not.if h|
|000015a0| 69 64 65 4e 6f 74 3d 22 | 74 72 75 65 22 20 74 68 |ideNot="|true" th|
|000015b0| 65 6e 20 65 78 69 74 20 | 68 69 64 65 50 72 6f 67 |en exit |hideProg|
|000015c0| 72 65 73 73 0d 69 66 20 | 74 68 65 72 65 20 69 73 |ress.if |there is|
|000015d0| 20 61 20 77 69 6e 64 6f | 77 20 22 50 72 6f 67 72 | a windo|w "Progr|
|000015e0| 65 73 73 42 61 72 22 20 | 74 68 65 6e 20 77 73 53 |essBar" |then wsS|
|000015f0| 65 6e 64 20 22 50 72 6f | 67 72 65 73 73 42 61 72 |end "Pro|gressBar|
|00001600| 22 2c 30 2c 22 63 6c 6f | 73 65 22 0d 65 6e 64 20 |",0,"clo|se".end |
|00001610| 68 69 64 65 50 72 6f 67 | 72 65 73 73 0d 0d 6f 6e |hideProg|ress..on|
|00001620| 20 70 72 6f 67 72 65 73 | 73 54 65 78 74 20 74 65 | progres|sText te|
|00001630| 78 74 46 6f 72 49 74 0d | 69 66 20 74 68 65 72 65 |xtForIt.|if there|
|00001640| 20 69 73 20 61 20 77 69 | 6e 64 6f 77 20 22 50 72 | is a wi|ndow "Pr|
|00001650| 6f 67 72 65 73 73 42 61 | 72 22 20 74 68 65 6e 20 |ogressBa|r" then |
|00001660| 77 73 53 65 74 20 22 50 | 72 6f 67 72 65 73 73 42 |wsSet "P|rogressB|
|00001670| 61 72 22 2c 22 74 68 65 | 54 65 78 74 22 2c 22 74 |ar","the|Text","t|
|00001680| 65 78 74 22 2c 74 65 78 | 74 46 6f 72 49 74 0d 65 |ext",tex|tForIt.e|
|00001690| 6e 64 20 70 72 6f 67 72 | 65 73 73 54 65 78 74 0d |nd progr|essText.|
|000016a0| 0d 6f 6e 20 70 72 6f 67 | 72 65 73 73 56 61 6c 75 |.on prog|ressValu|
|000016b0| 65 20 76 61 6c 75 65 46 | 6f 72 49 74 0d 69 66 20 |e valueF|orIt.if |
|000016c0| 74 68 65 72 65 20 69 73 | 20 61 20 77 69 6e 64 6f |there is| a windo|
|000016d0| 77 20 22 50 72 6f 67 72 | 65 73 73 42 61 72 22 20 |w "Progr|essBar" |
|000016e0| 74 68 65 6e 20 77 73 53 | 65 74 20 22 50 72 6f 67 |then wsS|et "Prog|
|000016f0| 72 65 73 73 42 61 72 22 | 2c 22 62 61 72 22 2c 22 |ressBar"|,"bar","|
|00001700| 56 61 6c 75 65 22 2c 76 | 61 6c 75 65 46 6f 72 49 |Value",v|alueForI|
|00001710| 74 0d 65 6e 64 20 70 72 | 6f 67 72 65 73 73 56 61 |t.end pr|ogressVa|
|00001720| 6c 75 65 0d 0d 6f 6e 20 | 69 6e 69 74 69 61 6c 69 |lue..on |initiali|
|00001730| 7a 65 0d 73 65 6e 64 20 | 69 6e 69 74 69 61 6c 69 |ze.send |initiali|
|00001740| 7a 65 20 74 6f 20 66 6c | 64 20 22 73 63 72 69 70 |ze to fl|d "scrip|
|00001750| 74 65 72 22 20 6f 66 20 | 63 64 20 31 0d 65 6e 64 |ter" of |cd 1.end|
|00001760| 20 69 6e 69 74 69 61 6c | 69 7a 65 0d 0d 6f 6e 20 | initial|ize..on |
|00001770| 67 65 74 47 6c 6f 62 61 | 6c 73 0d 67 6c 6f 62 61 |getGloba|ls.globa|
|00001780| 6c 20 77 69 6e 64 6f 69 | 64 52 65 63 74 2c 77 69 |l windoi|dRect,wi|
|00001790| 64 65 54 6f 6f 6c 73 2c | 63 75 73 74 6f 6d 53 6f |deTools,|customSo|
|000017a0| 72 74 0d 70 75 74 20 74 | 68 65 20 68 69 6c 69 74 |rt.put t|he hilit|
|000017b0| 65 20 6f 66 20 63 64 20 | 62 74 6e 20 22 63 75 73 |e of cd |btn "cus|
|000017c0| 74 6f 6d 20 73 6f 72 74 | 22 20 6f 66 20 63 64 20 |tom sort|" of cd |
|000017d0| 22 70 72 65 66 73 22 20 | 69 6e 74 6f 20 63 75 73 |"prefs" |into cus|
|000017e0| 74 6f 6d 53 6f 72 74 0d | 70 75 74 20 74 68 65 20 |tomSort.|put the |
|000017f0| 68 69 6c 69 74 65 20 6f | 66 20 63 64 20 62 74 6e |hilite o|f cd btn|
|00001800| 20 22 77 69 64 65 20 74 | 6f 6f 6c 73 20 70 61 6c | "wide t|ools pal|
|00001810| 65 74 74 65 22 20 6f 66 | 20 63 64 20 22 70 72 65 |ette" of| cd "pre|
|00001820| 66 73 22 20 69 6e 74 6f | 20 77 69 64 65 54 6f 6f |fs" into| wideToo|
|00001830| 6c 73 0d 70 75 74 20 63 | 64 20 66 6c 64 20 22 68 |ls.put c|d fld "h|
|00001840| 65 6c 70 52 65 63 74 22 | 20 6f 66 20 63 64 20 22 |elpRect"| of cd "|
|00001850| 70 72 65 66 73 22 20 69 | 6e 74 6f 20 77 69 6e 64 |prefs" i|nto wind|
|00001860| 6f 69 64 52 65 63 74 0d | 65 6e 64 20 67 65 74 47 |oidRect.|end getG|
|00001870| 6c 6f 62 61 6c 73 0d 0d | 6f 6e 20 6e 61 76 50 6f |lobals..|on navPo|
|00001880| 70 0d 70 75 74 20 74 68 | 65 20 74 69 63 6b 73 20 |p.put th|e ticks |
|00001890| 69 6e 74 6f 20 44 6f 77 | 6e 53 74 61 72 74 0d 67 |into Dow|nStart.g|
|000018a0| 65 74 20 4e 54 46 50 6f | 70 55 70 28 6c 65 66 74 |et NTFPo|pUp(left|
|000018b0| 20 6f 66 20 74 61 72 67 | 65 74 2d 32 2c 62 6f 74 | of targ|et-2,bot|
|000018c0| 74 6f 6d 20 6f 66 20 74 | 61 72 67 65 74 2d 34 2c |tom of t|arget-4,|
|000018d0| 22 6e 61 76 4c 69 73 74 | 22 2c 22 47 6c 6f 62 61 |"navList|","Globa|
|000018e0| 6c 22 29 0d 63 68 65 63 | 6b 50 6f 70 28 74 68 65 |l").chec|kPop(the|
|000018f0| 20 74 69 63 6b 73 20 2d | 20 44 6f 77 6e 53 74 61 | ticks -| DownSta|
|00001900| 72 74 29 0d 69 66 20 69 | 74 3d 30 20 74 68 65 6e |rt).if i|t=0 then|
|00001910| 20 65 78 69 74 20 6e 61 | 76 50 6f 70 0d 70 75 74 | exit na|vPop.put|
|00001920| 20 69 74 20 69 6e 74 6f | 20 6e 61 76 50 69 63 6b | it into| navPick|
|00001930| 0d 70 75 74 20 6c 61 73 | 74 20 6c 69 6e 65 20 6f |.put las|t line o|
|00001940| 66 20 6e 61 76 50 69 63 | 6b 20 69 6e 74 6f 20 6e |f navPic|k into n|
|00001950| 6e 0d 67 6c 6f 62 61 6c | 20 63 61 72 64 66 72 6f |n.global| cardfro|
|00001960| 6d 0d 70 75 74 20 74 68 | 65 20 6e 61 6d 65 20 6f |m.put th|e name o|
|00001970| 66 20 74 68 69 73 20 63 | 64 20 69 6e 74 6f 20 63 |f this c|d into c|
|00001980| 61 72 64 66 72 6f 6d 0d | 2d 2d 20 a5 20 43 72 65 |ardfrom.|-- . Cre|
|00001990| 61 74 65 20 a5 0d 69 66 | 20 6c 69 6e 65 20 31 20 |ate ..if| line 1 |
|000019a0| 6f 66 20 6e 61 76 50 69 | 63 6b 3d 22 43 72 65 61 |of navPi|ck="Crea|
|000019b0| 74 65 22 20 74 68 65 6e | 0d 69 66 20 6c 69 6e 65 |te" then|.if line|
|000019c0| 20 32 20 6f 66 20 6e 61 | 76 50 69 63 6b 3d 22 63 | 2 of na|vPick="c|
|000019d0| 61 74 65 67 6f 72 79 22 | 20 74 68 65 6e 0d 70 75 |ategory"| then.pu|
|000019e0| 74 20 57 53 54 6f 70 4c | 65 66 74 28 33 32 30 2c |t WSTopL|eft(320,|
|000019f0| 31 30 39 29 20 69 6e 74 | 6f 20 54 4c 0d 67 65 74 |109) int|o TL.get|
|00001a00| 20 77 69 6e 64 6f 77 73 | 63 72 69 70 74 28 22 4e | windows|cript("N|
|00001a10| 65 77 20 43 61 74 65 67 | 6f 72 79 22 2c 22 41 73 |ew Categ|ory","As|
|00001a20| 73 65 74 22 2c 54 4c 29 | 0d 65 6e 64 20 69 66 0d |set",TL)|.end if.|
|00001a30| 69 66 20 6c 69 6e 65 20 | 32 20 6f 66 20 6e 61 76 |if line |2 of nav|
|00001a40| 50 69 63 6b 3d 22 64 65 | 74 61 69 6c 22 20 74 68 |Pick="de|tail" th|
|00001a50| 65 6e 0d 61 64 64 49 74 | 65 6d 0d 65 6e 64 20 69 |en.addIt|em.end i|
|00001a60| 66 0d 69 66 20 6c 69 6e | 65 20 32 20 6f 66 20 6e |f.if lin|e 2 of n|
|00001a70| 61 76 50 69 63 6b 3d 22 | 43 75 73 74 6f 6d 20 52 |avPick="|Custom R|
|00001a80| 65 70 6f 72 74 22 20 74 | 68 65 6e 0d 6d 61 6b 65 |eport" t|hen.make|
|00001a90| 4e 65 77 52 65 70 6f 72 | 74 0d 65 6e 64 20 69 66 |NewRepor|t.end if|
|00001aa0| 0d 65 78 69 74 20 6e 61 | 76 50 6f 70 0d 65 6e 64 |.exit na|vPop.end|
|00001ab0| 20 69 66 0d 2d 2d 20 a5 | 20 4d 6f 64 69 66 79 20 | if.-- .| Modify |
|00001ac0| 6f 74 68 65 72 20 a5 0d | 69 66 20 6c 69 6e 65 20 |other ..|if line |
|00001ad0| 32 20 6f 66 20 6e 61 76 | 50 69 63 6b 3d 22 44 65 |2 of nav|Pick="De|
|00001ae0| 6c 65 74 65 c9 22 20 74 | 68 65 6e 0d 69 66 20 6c |lete." t|hen.if l|
|00001af0| 69 6e 65 20 33 20 6f 66 | 20 6e 61 76 50 69 63 6b |ine 3 of| navPick|
|00001b00| 3d 22 44 65 74 61 69 6c | 22 20 74 68 65 6e 0d 73 |="Detail|" then.s|
|00001b10| 65 6c 65 63 74 54 72 61 | 73 68 0d 65 6e 64 20 69 |electTra|sh.end i|
|00001b20| 66 0d 69 66 20 6c 69 6e | 65 20 33 20 6f 66 20 6e |f.if lin|e 3 of n|
|00001b30| 61 76 50 69 63 6b 3d 22 | 43 61 74 65 67 6f 72 79 |avPick="|Category|
|00001b40| 22 20 74 68 65 6e 0d 64 | 65 6c 65 74 65 43 61 74 |" then.d|eleteCat|
|00001b50| 0d 65 6e 64 20 69 66 0d | 69 66 20 6c 69 6e 65 20 |.end if.|if line |
|00001b60| 33 20 6f 66 20 6e 61 76 | 50 69 63 6b 3d 22 43 75 |3 of nav|Pick="Cu|
|00001b70| 73 74 6f 6d 20 52 65 70 | 6f 72 74 22 20 74 68 65 |stom Rep|ort" the|
|00001b80| 6e 0d 64 65 6c 65 74 65 | 52 65 70 6f 72 74 0d 65 |n.delete|Report.e|
|00001b90| 6e 64 20 69 66 0d 65 78 | 69 74 20 6e 61 76 50 6f |nd if.ex|it navPo|
|00001ba0| 70 0d 65 6e 64 20 69 66 | 0d 69 66 20 6c 69 6e 65 |p.end if|.if line|
|00001bb0| 20 32 20 6f 66 20 6e 61 | 76 50 69 63 6b 3d 22 52 | 2 of na|vPick="R|
|00001bc0| 65 6e 61 6d 65 c9 22 20 | 74 68 65 6e 0d 70 75 74 |ename." |then.put|
|00001bd0| 20 6c 69 6e 65 20 33 20 | 6f 66 20 6e 61 76 50 69 | line 3 |of navPi|
|00001be0| 63 6b 20 69 6e 74 6f 20 | 72 65 6e 61 6d 65 57 68 |ck into |renameWh|
|00001bf0| 61 74 0d 69 66 20 72 65 | 6e 61 6d 65 57 68 61 74 |at.if re|nameWhat|
|00001c00| 3d 65 6d 70 74 79 20 74 | 68 65 6e 20 45 54 48 0d |=empty t|hen ETH.|
|00001c10| 72 65 6e 61 6d 65 20 72 | 65 6e 61 6d 65 57 68 61 |rename r|enameWha|
|00001c20| 74 0d 65 78 69 74 20 6e | 61 76 50 6f 70 0d 65 6e |t.exit n|avPop.en|
|00001c30| 64 20 69 66 0d 69 66 20 | 28 6c 69 6e 65 20 32 20 |d if.if |(line 2 |
|00001c40| 6f 66 20 6e 61 76 50 69 | 63 6b 3d 22 52 65 61 73 |of navPi|ck="Reas|
|00001c50| 73 69 67 6e 20 63 61 74 | 65 67 6f 72 79 22 29 20 |sign cat|egory") |
|00001c60| 61 6e 64 20 28 6c 69 6e | 65 20 31 20 6f 66 20 6e |and (lin|e 1 of n|
|00001c70| 61 76 50 69 63 6b 3d 22 | 4d 6f 64 69 66 79 20 6f |avPick="|Modify o|
|00001c80| 74 68 65 72 22 29 20 74 | 68 65 6e 0d 72 65 61 73 |ther") t|hen.reas|
|00001c90| 73 69 67 6e 0d 65 78 69 | 74 20 6e 61 76 50 6f 70 |sign.exi|t navPop|
|00001ca0| 0d 65 6e 64 20 69 66 0d | 2d 2d 20 a5 20 4d 6f 64 |.end if.|-- . Mod|
|00001cb0| 69 66 79 20 74 68 69 73 | 20 a5 0d 69 66 20 6c 69 |ify this| ..if li|
|00001cc0| 6e 65 20 31 20 6f 66 20 | 6e 61 76 50 69 63 6b 3d |ne 1 of |navPick=|
|00001cd0| 22 4d 6f 64 69 66 79 20 | 74 68 69 73 22 20 74 68 |"Modify |this" th|
|00001ce0| 65 6e 0d 69 66 20 6c 69 | 6e 65 20 32 20 6f 66 20 |en.if li|ne 2 of |
|00001cf0| 6e 61 76 50 69 63 6b 3d | 22 52 65 61 73 73 69 67 |navPick=|"Reassig|
|00001d00| 6e 20 63 61 74 65 67 6f | 72 79 22 20 74 68 65 6e |n catego|ry" then|
|00001d10| 0d 69 66 20 63 68 65 63 | 6b 49 66 43 61 6e 28 29 |.if chec|kIfCan()|
|00001d20| 3d 22 79 65 73 22 20 74 | 68 65 6e 0d 69 66 20 74 |="yes" t|hen.if t|
|00001d30| 68 65 20 73 68 6f 72 74 | 20 6e 61 6d 65 20 6f 66 |he short| name of|
|00001d40| 20 74 68 69 73 20 62 67 | 3d 22 72 65 70 6f 72 74 | this bg|="report|
|00001d50| 22 20 74 68 65 6e 0d 61 | 6c 65 72 74 4e 6f 74 65 |" then.a|lertNote|
|00001d60| 28 22 41 20 72 65 70 6f | 72 74 20 63 61 6e d5 74 |("A repo|rt can.t|
|00001d70| 20 62 65 20 72 65 61 73 | 73 69 67 6e 65 64 2e 22 | be reas|signed."|
|00001d80| 29 0d 65 6c 73 65 0d 72 | 65 61 73 73 69 67 6e 54 |).else.r|eassignT|
|00001d90| 68 69 73 0d 65 78 69 74 | 20 6e 61 76 50 6f 70 0d |his.exit| navPop.|
|00001da0| 65 6e 64 20 69 66 0d 65 | 6e 64 20 69 66 0d 65 6e |end if.e|nd if.en|
|00001db0| 64 20 69 66 0d 69 66 20 | 6c 69 6e 65 20 32 20 6f |d if.if |line 2 o|
|00001dc0| 66 20 6e 61 76 50 69 63 | 6b 3d 22 52 65 6e 61 6d |f navPic|k="Renam|
|00001dd0| 65 22 20 74 68 65 6e 0d | 69 66 20 63 68 65 63 6b |e" then.|if check|
|00001de0| 49 66 43 61 6e 28 29 3d | 22 79 65 73 22 20 74 68 |IfCan()=|"yes" th|
|00001df0| 65 6e 0d 65 64 69 74 54 | 68 69 73 4e 61 6d 65 0d |en.editT|hisName.|
|00001e00| 65 6e 64 20 69 66 0d 65 | 6e 64 20 69 66 0d 69 66 |end if.e|nd if.if|
|00001e10| 20 6c 69 6e 65 20 32 20 | 6f 66 20 6e 61 76 50 69 | line 2 |of navPi|
|00001e20| 63 6b 3d 22 44 65 6c 65 | 74 65 22 20 74 68 65 6e |ck="Dele|te" then|
|00001e30| 0d 69 66 20 63 68 65 63 | 6b 49 66 43 61 6e 28 29 |.if chec|kIfCan()|
|00001e40| 3d 22 79 65 73 22 20 74 | 68 65 6e 0d 69 66 20 74 |="yes" t|hen.if t|
|00001e50| 68 65 20 73 68 6f 72 74 | 20 6e 61 6d 65 20 6f 66 |he short| name of|
|00001e60| 20 74 68 69 73 20 62 67 | 3d 22 72 65 70 6f 72 74 | this bg|="report|
|00001e70| 22 20 74 68 65 6e 0d 73 | 65 6e 64 20 64 65 6c 65 |" then.s|end dele|
|00001e80| 74 65 54 68 69 73 52 65 | 70 6f 72 74 20 74 6f 20 |teThisRe|port to |
|00001e90| 66 6c 64 20 22 73 63 72 | 69 70 74 65 72 22 20 6f |fld "scr|ipter" o|
|00001ea0| 66 20 63 64 20 31 0d 65 | 6c 73 65 0d 73 65 6e 64 |f cd 1.e|lse.send|
|00001eb0| 20 74 72 61 73 68 54 68 | 69 73 20 74 6f 20 66 6c | trashTh|is to fl|
|00001ec0| 64 20 22 73 63 72 69 70 | 74 65 72 22 20 6f 66 20 |d "scrip|ter" of |
|00001ed0| 63 64 20 31 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |cd 1.end| if.end |
|00001ee0| 69 66 0d 65 6e 64 20 69 | 66 0d 65 78 69 74 20 6e |if.end i|f.exit n|
|00001ef0| 61 76 50 6f 70 0d 65 6e | 64 20 69 66 0d 2d 2d 20 |avPop.en|d if.-- |
|00001f00| a5 20 43 75 73 74 6f 6d | 20 52 65 70 6f 72 74 73 |. Custom| Reports|
|00001f10| 20 a5 0d 69 66 20 6c 69 | 6e 65 20 31 20 6f 66 20 | ..if li|ne 1 of |
|00001f20| 6e 61 76 50 69 63 6b 3d | 22 43 75 73 74 6f 6d 20 |navPick=|"Custom |
|00001f30| 52 65 70 6f 72 74 73 22 | 20 74 68 65 6e 0d 70 75 |Reports"| then.pu|
|00001f40| 74 20 6c 69 6e 65 20 32 | 20 6f 66 20 6e 61 76 50 |t line 2| of navP|
|00001f50| 69 63 6b 20 69 6e 74 6f | 20 73 65 6c 65 63 74 50 |ick into| selectP|
|00001f60| 69 63 6b 65 64 0d 69 66 | 20 73 65 6c 65 63 74 50 |icked.if| selectP|
|00001f70| 69 63 6b 65 64 ad 65 6d | 70 74 79 20 74 68 65 6e |icked.em|pty then|
|00001f80| 0d 76 69 73 75 61 6c 20 | 73 74 72 65 74 63 68 20 |.visual |stretch |
|00001f90| 66 72 6f 6d 20 63 65 6e | 74 65 72 0d 67 6f 20 63 |from cen|ter.go c|
|00001fa0| 64 20 73 65 6c 65 63 74 | 50 69 63 6b 65 64 20 6f |d select|Picked o|
|00001fb0| 66 20 62 67 20 22 52 65 | 70 6f 72 74 22 0d 65 6c |f bg "Re|port".el|
|00001fc0| 73 65 0d 61 6c 65 72 74 | 4e 6f 74 65 28 22 4e 6f |se.alert|Note("No|
|00001fd0| 20 72 65 70 6f 72 74 73 | 20 63 72 65 61 74 65 64 | reports| created|
|00001fe0| 20 79 65 74 21 22 29 0d | 65 6e 64 20 69 66 0d 45 | yet!").|end if.E|
|00001ff0| 54 48 0d 65 6e 64 20 69 | 66 0d 2d 2d 20 a5 20 53 |TH.end i|f.-- . S|
|00002000| 75 6d 6d 61 72 69 65 73 | 20 a5 0d 69 66 20 6c 69 |ummaries| ..if li|
|00002010| 6e 65 20 31 20 6f 66 20 | 6e 61 76 50 69 63 6b 3d |ne 1 of |navPick=|
|00002020| 22 53 75 6d 6d 61 72 69 | 65 73 22 20 74 68 65 6e |"Summari|es" then|
|00002030| 0d 69 66 20 6c 69 6e 65 | 20 32 20 6f 66 20 6e 61 |.if line| 2 of na|
|00002040| 76 50 69 63 6b 3d 22 4e | 65 74 20 57 6f 72 74 68 |vPick="N|et Worth|
|00002050| 22 20 74 68 65 6e 0d 76 | 69 73 75 61 6c 20 69 72 |" then.v|isual ir|
|00002060| 69 73 20 6f 70 65 6e 20 | 66 61 73 74 0d 67 6f 20 |is open |fast.go |
|00002070| 63 64 20 22 4e 65 74 57 | 6f 72 74 68 22 0d 65 78 |cd "NetW|orth".ex|
|00002080| 69 74 20 6e 61 76 50 6f | 70 0d 65 6e 64 20 69 66 |it navPo|p.end if|
|00002090| 0d 69 66 20 6c 69 6e 65 | 20 32 20 6f 66 20 6e 61 |.if line| 2 of na|
|000020a0| 76 50 69 63 6b 3d 22 53 | 6e 61 70 73 68 6f 74 22 |vPick="S|napshot"|
|000020b0| 20 74 68 65 6e 0d 76 69 | 73 75 61 6c 20 69 72 69 | then.vi|sual iri|
|000020c0| 73 20 6f 70 65 6e 20 66 | 61 73 74 0d 67 6f 20 63 |s open f|ast.go c|
|000020d0| 64 20 22 43 6f 6d 70 61 | 72 6f 22 0d 65 78 69 74 |d "Compa|ro".exit|
|000020e0| 20 6e 61 76 50 6f 70 0d | 65 6e 64 20 69 66 0d 69 | navPop.|end if.i|
|000020f0| 66 20 6c 69 6e 65 20 32 | 20 6f 66 20 6e 61 76 50 |f line 2| of navP|
|00002100| 69 63 6b 3d 22 53 74 6f | 63 6b 20 50 6f 72 74 66 |ick="Sto|ck Portf|
|00002110| 6f 6c 69 6f 20 53 75 6d | 6d 61 72 79 22 20 74 68 |olio Sum|mary" th|
|00002120| 65 6e 0d 76 69 73 75 61 | 6c 20 69 72 69 73 20 6f |en.visua|l iris o|
|00002130| 70 65 6e 20 66 61 73 74 | 0d 67 6f 20 63 64 20 22 |pen fast|.go cd "|
|00002140| 53 74 6f 63 6b 50 6f 72 | 74 22 0d 65 78 69 74 20 |StockPor|t".exit |
|00002150| 6e 61 76 50 6f 70 0d 65 | 6e 64 20 69 66 0d 69 66 |navPop.e|nd if.if|
|00002160| 20 6c 69 6e 65 20 32 20 | 6f 66 20 6e 61 76 50 69 | line 2 |of navPi|
|00002170| 63 6b 3d 22 43 61 70 69 | 74 61 6c 20 67 61 69 6e |ck="Capi|tal gain|
|00002180| 73 22 20 74 68 65 6e 0d | 76 69 73 75 61 6c 20 69 |s" then.|visual i|
|00002190| 72 69 73 20 6f 70 65 6e | 20 66 61 73 74 0d 67 6f |ris open| fast.go|
|000021a0| 20 63 64 20 22 53 74 6f | 63 6b 50 6f 72 74 22 0d | cd "Sto|ckPort".|
|000021b0| 64 69 73 70 6c 61 79 43 | 47 0d 65 78 69 74 20 6e |displayC|G.exit n|
|000021c0| 61 76 50 6f 70 0d 65 6e | 64 20 69 66 0d 69 66 20 |avPop.en|d if.if |
|000021d0| 6c 69 6e 65 20 32 20 6f | 66 20 6e 61 76 50 69 63 |line 2 o|f navPic|
|000021e0| 6b 3d 22 4f 70 65 6e 20 | 50 6f 73 69 74 69 6f 6e |k="Open |Position|
|000021f0| 73 22 20 74 68 65 6e 0d | 76 69 73 75 61 6c 20 69 |s" then.|visual i|
|00002200| 72 69 73 20 6f 70 65 6e | 20 66 61 73 74 0d 67 6f |ris open| fast.go|
|00002210| 20 63 64 20 22 53 74 6f | 63 6b 50 6f 72 74 22 0d | cd "Sto|ckPort".|
|00002220| 64 69 73 70 6c 61 79 4f | 70 65 6e 0d 65 78 69 74 |displayO|pen.exit|
|00002230| 20 6e 61 76 50 6f 70 0d | 65 6e 64 20 69 66 0d 65 | navPop.|end if.e|
|00002240| 6e 64 20 69 66 0d 2d 2d | 20 a5 20 47 72 61 70 68 |nd if.--| . Graph|
|00002250| 73 20 a5 0d 69 66 20 6c | 69 6e 65 20 31 20 6f 66 |s ..if l|ine 1 of|
|00002260| 20 6e 61 76 50 69 63 6b | 3d 22 47 72 61 70 68 73 | navPick|="Graphs|
|00002270| 22 20 74 68 65 6e 0d 69 | 66 20 6c 69 6e 65 20 32 |" then.i|f line 2|
|00002280| 20 6f 66 20 6e 61 76 50 | 69 63 6b 3d 22 41 73 73 | of navP|ick="Ass|
|00002290| 65 74 73 22 20 74 68 65 | 6e 0d 76 69 73 75 61 6c |ets" the|n.visual|
|000022a0| 20 69 72 69 73 20 6f 70 | 65 6e 20 66 61 73 74 0d | iris op|en fast.|
|000022b0| 67 6f 20 63 64 20 22 70 | 69 65 2e 61 73 73 65 74 |go cd "p|ie.asset|
|000022c0| 22 0d 65 78 69 74 20 6e | 61 76 50 6f 70 0d 65 6e |".exit n|avPop.en|
|000022d0| 64 20 69 66 0d 69 66 20 | 6c 69 6e 65 20 32 20 6f |d if.if |line 2 o|
|000022e0| 66 20 6e 61 76 50 69 63 | 6b 3d 22 4c 69 61 62 69 |f navPic|k="Liabi|
|000022f0| 6c 69 74 69 65 73 22 20 | 74 68 65 6e 0d 76 69 73 |lities" |then.vis|
|00002300| 75 61 6c 20 69 72 69 73 | 20 6f 70 65 6e 20 66 61 |ual iris| open fa|
|00002310| 73 74 0d 67 6f 20 63 64 | 20 22 70 69 65 2e 6c 69 |st.go cd| "pie.li|
|00002320| 61 62 22 0d 65 78 69 74 | 20 6e 61 76 50 6f 70 0d |ab".exit| navPop.|
|00002330| 65 6e 64 20 69 66 0d 69 | 66 20 6c 69 6e 65 20 32 |end if.i|f line 2|
|00002340| 20 6f 66 20 6e 61 76 50 | 69 63 6b 3d 22 53 74 6f | of navP|ick="Sto|
|00002350| 63 6b 20 50 65 72 66 6f | 72 6d 61 6e 63 65 22 20 |ck Perfo|rmance" |
|00002360| 74 68 65 6e 0d 76 69 73 | 75 61 6c 20 69 72 69 73 |then.vis|ual iris|
|00002370| 20 6f 70 65 6e 20 66 61 | 73 74 0d 67 6f 20 63 64 | open fa|st.go cd|
|00002380| 20 22 62 61 72 22 0d 65 | 78 69 74 20 6e 61 76 50 | "bar".e|xit navP|
|00002390| 6f 70 0d 65 6e 64 20 69 | 66 0d 69 66 20 6c 69 6e |op.end i|f.if lin|
|000023a0| 65 20 32 20 6f 66 20 6e | 61 76 50 69 63 6b 3d 22 |e 2 of n|avPick="|
|000023b0| 53 74 6f 63 6b 20 48 69 | 67 68 2d 4c 6f 77 22 20 |Stock Hi|gh-Low" |
|000023c0| 74 68 65 6e 0d 76 69 73 | 75 61 6c 20 69 72 69 73 |then.vis|ual iris|
|000023d0| 20 6f 70 65 6e 20 66 61 | 73 74 0d 67 6f 20 63 64 | open fa|st.go cd|
|000023e0| 20 22 63 6f 6c 75 6d 6e | 22 0d 65 78 69 74 20 6e | "column|".exit n|
|000023f0| 61 76 50 6f 70 0d 65 6e | 64 20 69 66 0d 65 6e 64 |avPop.en|d if.end|
|00002400| 20 69 66 0d 2d 2d 20 a5 | 20 45 78 61 6d 70 6c 65 | if.-- .| Example|
|00002410| 73 20 a5 0d 69 66 20 6c | 69 6e 65 20 31 20 6f 66 |s ..if l|ine 1 of|
|00002420| 20 6e 61 76 50 69 63 6b | 3d 22 45 78 61 6d 70 6c | navPick|="Exampl|
|00002430| 65 73 22 20 74 68 65 6e | 0d 69 66 20 6c 69 6e 65 |es" then|.if line|
|00002440| 20 32 20 6f 66 20 6e 61 | 76 50 69 63 6b 3d 22 53 | 2 of na|vPick="S|
|00002450| 74 6f 63 6b 20 26 20 46 | 75 6e 64 22 20 74 68 65 |tock & F|und" the|
|00002460| 6e 0d 76 69 73 75 61 6c | 20 69 72 69 73 20 6f 70 |n.visual| iris op|
|00002470| 65 6e 20 66 61 73 74 0d | 67 6f 20 63 64 20 31 20 |en fast.|go cd 1 |
|00002480| 6f 66 20 62 67 20 22 73 | 74 6f 63 6b 73 22 0d 65 |of bg "s|tocks".e|
|00002490| 78 69 74 20 6e 61 76 50 | 6f 70 0d 65 6e 64 20 69 |xit navP|op.end i|
|000024a0| 66 0d 69 66 20 6c 69 6e | 65 20 32 20 6f 66 20 6e |f.if lin|e 2 of n|
|000024b0| 61 76 50 69 63 6b 3d 22 | 53 69 6e 67 6c 65 2d 69 |avPick="|Single-i|
|000024c0| 74 65 6d 22 20 74 68 65 | 6e 0d 76 69 73 75 61 6c |tem" the|n.visual|
|000024d0| 20 69 72 69 73 20 6f 70 | 65 6e 20 66 61 73 74 0d | iris op|en fast.|
|000024e0| 67 6f 20 63 64 20 31 20 | 6f 66 20 62 67 20 22 53 |go cd 1 |of bg "S|
|000024f0| 69 6e 67 6c 65 49 74 65 | 6d 22 0d 65 78 69 74 20 |ingleIte|m".exit |
|00002500| 6e 61 76 50 6f 70 0d 65 | 6e 64 20 69 66 0d 69 66 |navPop.e|nd if.if|
|00002510| 20 6c 69 6e 65 20 32 20 | 6f 66 20 6e 61 76 50 69 | line 2 |of navPi|
|00002520| 63 6b 3d 22 4d 75 6c 74 | 69 2d 69 74 65 6d 22 20 |ck="Mult|i-item" |
|00002530| 74 68 65 6e 0d 76 69 73 | 75 61 6c 20 69 72 69 73 |then.vis|ual iris|
|00002540| 20 6f 70 65 6e 20 66 61 | 73 74 0d 67 6f 20 63 64 | open fa|st.go cd|
|00002550| 20 31 20 6f 66 20 62 67 | 20 22 4d 75 6c 74 69 49 | 1 of bg| "MultiI|
|00002560| 74 65 6d 22 0d 65 78 69 | 74 20 6e 61 76 50 6f 70 |tem".exi|t navPop|
|00002570| 0d 65 6e 64 20 69 66 0d | 69 66 20 6c 69 6e 65 20 |.end if.|if line |
|00002580| 32 20 6f 66 20 6e 61 76 | 50 69 63 6b 3d 22 43 75 |2 of nav|Pick="Cu|
|00002590| 73 74 6f 6d 20 52 65 70 | 6f 72 74 22 20 74 68 65 |stom Rep|ort" the|
|000025a0| 6e 0d 76 69 73 75 61 6c | 20 69 72 69 73 20 6f 70 |n.visual| iris op|
|000025b0| 65 6e 20 66 61 73 74 0d | 67 6f 20 63 64 20 31 20 |en fast.|go cd 1 |
|000025c0| 6f 66 20 62 67 20 22 52 | 65 70 6f 72 74 22 0d 65 |of bg "R|eport".e|
|000025d0| 78 69 74 20 6e 61 76 50 | 6f 70 0d 65 6e 64 20 69 |xit navP|op.end i|
|000025e0| 66 0d 65 6e 64 20 69 66 | 0d 69 66 20 6c 69 6e 65 |f.end if|.if line|
|000025f0| 20 31 20 6f 66 20 6e 61 | 76 50 69 63 6b 3d 22 51 | 1 of na|vPick="Q|
|00002600| 75 69 74 22 20 74 68 65 | 6e 0d 61 6e 73 77 65 72 |uit" the|n.answer|
|00002610| 20 22 57 6f 75 6c 64 20 | 79 6f 75 20 6c 69 6b 65 | "Would |you like|
|00002620| 20 74 6f 20 67 6f 20 74 | 6f 20 74 68 65 20 48 6f | to go t|o the Ho|
|00002630| 6d 65 20 73 74 61 63 6b | 20 6f 72 20 71 75 69 74 |me stack| or quit|
|00002640| 20 74 6f 20 74 68 65 20 | 46 69 6e 64 65 72 3f 22 | to the |Finder?"|
|00002650| 20 77 69 74 68 20 22 63 | 61 6e 63 65 6c 22 20 6f | with "c|ancel" o|
|00002660| 72 20 22 46 69 6e 64 65 | 72 22 20 6f 72 20 22 48 |r "Finde|r" or "H|
|00002670| 6f 6d 65 22 0d 63 68 65 | 63 6b 43 61 6e 63 65 6c |ome".che|ckCancel|
|00002680| 20 69 74 0d 69 66 20 69 | 74 3d 22 48 6f 6d 65 22 | it.if i|t="Home"|
|00002690| 20 74 68 65 6e 0d 76 69 | 73 75 61 6c 20 69 72 69 | then.vi|sual iri|
|000026a0| 73 20 63 6c 6f 73 65 0d | 67 6f 20 48 6f 6d 65 0d |s close.|go Home.|
|000026b0| 65 78 69 74 20 6e 61 76 | 70 6f 70 0d 65 6e 64 20 |exit nav|pop.end |
|000026c0| 69 66 0d 64 6f 4d 65 6e | 75 20 22 51 75 69 74 20 |if.doMen|u "Quit |
|000026d0| 48 79 70 65 72 43 61 72 | 64 22 0d 65 78 69 74 20 |HyperCar|d".exit |
|000026e0| 6e 61 76 70 6f 70 0d 65 | 6e 64 20 69 66 0d 2d 2d |navpop.e|nd if.--|
|000026f0| 20 a5 20 54 69 74 6c 65 | 2c 50 72 65 66 2c 54 6f | . Title|,Pref,To|
|00002700| 6f 6c 73 a5 0d 69 66 20 | 6c 69 6e 65 20 31 20 6f |ols..if |line 1 o|
|00002710| 66 20 6e 61 76 50 69 63 | 6b 3d 22 54 69 74 6c 65 |f navPic|k="Title|
|00002720| 20 63 61 72 64 22 20 74 | 68 65 6e 0d 76 69 73 75 | card" t|hen.visu|
|00002730| 61 6c 20 69 72 69 73 20 | 6f 70 65 6e 20 66 61 73 |al iris |open fas|
|00002740| 74 0d 67 6f 20 63 64 20 | 22 54 69 74 6c 65 22 0d |t.go cd |"Title".|
|00002750| 65 78 69 74 20 6e 61 76 | 50 6f 70 0d 65 6e 64 20 |exit nav|Pop.end |
|00002760| 69 66 0d 69 66 20 6c 69 | 6e 65 20 31 20 6f 66 20 |if.if li|ne 1 of |
|00002770| 6e 61 76 50 69 63 6b 3d | 22 50 72 65 66 65 72 65 |navPick=|"Prefere|
|00002780| 6e 63 65 73 22 20 74 68 | 65 6e 0d 76 69 73 75 61 |nces" th|en.visua|
|00002790| 6c 20 69 72 69 73 20 6f | 70 65 6e 20 66 61 73 74 |l iris o|pen fast|
|000027a0| 0d 67 6f 20 63 64 20 22 | 50 72 65 66 73 22 0d 65 |.go cd "|Prefs".e|
|000027b0| 78 69 74 20 6e 61 76 50 | 6f 70 0d 65 6e 64 20 69 |xit navP|op.end i|
|000027c0| 66 0d 69 66 20 6c 69 6e | 65 20 31 20 6f 66 20 6e |f.if lin|e 1 of n|
|000027d0| 61 76 50 69 63 6b 3d 22 | 53 68 6f 77 20 74 6f 6f |avPick="|Show too|
|000027e0| 6c 73 22 20 74 68 65 6e | 0d 73 68 6f 77 54 6f 6f |ls" then|.showToo|
|000027f0| 6c 73 0d 65 78 69 74 20 | 6e 61 76 50 6f 70 0d 65 |ls.exit |navPop.e|
|00002800| 6e 64 20 69 66 0d 65 6e | 64 20 6e 61 76 50 6f 70 |nd if.en|d navPop|
|00002810| 0d 0d 6f 6e 20 61 73 73 | 65 74 50 6f 70 0d 70 75 |..on ass|etPop.pu|
|00002820| 74 20 74 68 65 20 74 69 | 63 6b 73 20 69 6e 74 6f |t the ti|cks into|
|00002830| 20 44 6f 77 6e 53 74 61 | 72 74 0d 67 65 74 20 4e | DownSta|rt.get N|
|00002840| 54 46 50 6f 70 55 70 28 | 6c 65 66 74 20 6f 66 20 |TFPopUp(|left of |
|00002850| 74 61 72 67 65 74 2d 32 | 2c 62 6f 74 74 6f 6d 20 |target-2|,bottom |
|00002860| 6f 66 20 74 61 72 67 65 | 74 2d 34 2c 22 61 73 73 |of targe|t-4,"ass|
|00002870| 65 74 4c 69 73 74 22 2c | 22 47 6c 6f 62 61 6c 22 |etList",|"Global"|
|00002880| 29 0d 63 68 65 63 6b 50 | 6f 70 28 74 68 65 20 74 |).checkP|op(the t|
|00002890| 69 63 6b 73 20 2d 20 44 | 6f 77 6e 53 74 61 72 74 |icks - D|ownStart|
|000028a0| 29 0d 69 66 20 69 74 3d | 30 20 74 68 65 6e 20 65 |).if it=|0 then e|
|000028b0| 78 69 74 20 61 73 73 65 | 74 50 6f 70 0d 70 75 74 |xit asse|tPop.put|
|000028c0| 20 69 74 20 69 6e 74 6f | 20 6e 61 76 50 69 63 6b | it into| navPick|
|000028d0| 0d 70 75 74 20 6c 61 73 | 74 20 6c 69 6e 65 20 6f |.put las|t line o|
|000028e0| 66 20 6e 61 76 50 69 63 | 6b 20 69 6e 74 6f 20 6e |f navPic|k into n|
|000028f0| 6e 0d 69 66 20 6e 6e 3d | 22 a5 20 41 73 73 65 74 |n.if nn=|". Asset|
|00002900| 73 20 a5 22 20 74 68 65 | 6e 0d 6e 6f 74 52 65 61 |s ." the|n.notRea|
|00002910| 6c 20 6e 6e 0d 65 78 69 | 74 20 61 73 73 65 74 50 |l nn.exi|t assetP|
|00002920| 6f 70 0d 65 6e 64 20 69 | 66 0d 67 6c 6f 62 61 6c |op.end i|f.global|
|00002930| 20 63 61 72 64 66 72 6f | 6d 0d 70 75 74 20 74 68 | cardfro|m.put th|
|00002940| 65 20 6e 61 6d 65 20 6f | 66 20 74 68 69 73 20 63 |e name o|f this c|
|00002950| 64 20 69 6e 74 6f 20 63 | 61 72 64 66 72 6f 6d 0d |d into c|ardfrom.|
|00002960| 69 66 20 74 68 65 72 65 | 20 69 73 20 61 20 63 64 |if there| is a cd|
|00002970| 20 6e 6e 20 74 68 65 6e | 0d 76 69 73 75 61 6c 20 | nn then|.visual |
|00002980| 69 72 69 73 20 6f 70 65 | 6e 20 66 61 73 74 0d 67 |iris ope|n fast.g|
|00002990| 6f 20 63 64 20 6e 6e 0d | 65 78 69 74 20 61 73 73 |o cd nn.|exit ass|
|000029a0| 65 74 50 6f 70 0d 65 6e | 64 20 69 66 0d 61 6c 65 |etPop.en|d if.ale|
|000029b0| 72 74 4e 6f 74 65 28 22 | 54 68 65 72 65 20 69 73 |rtNote("|There is|
|000029c0| 20 6e 6f 20 64 65 74 61 | 69 6c 20 63 61 72 64 20 | no deta|il card |
|000029d0| 61 76 61 69 6c 61 62 6c | 65 20 66 6f 72 20 74 68 |availabl|e for th|
|000029e0| 65 20 63 61 74 65 67 6f | 72 79 20 d2 22 26 6e 6e |e catego|ry ."&nn|
|000029f0| 26 22 d3 2e 22 29 0d 65 | 6e 64 20 61 73 73 65 74 |&"..").e|nd asset|
|00002a00| 50 6f 70 0d 0d 6f 6e 20 | 6c 69 61 62 50 6f 70 0d |Pop..on |liabPop.|
|00002a10| 70 75 74 20 74 68 65 20 | 74 69 63 6b 73 20 69 6e |put the |ticks in|
|00002a20| 74 6f 20 44 6f 77 6e 53 | 74 61 72 74 0d 67 65 74 |to DownS|tart.get|
|00002a30| 20 4e 54 46 50 6f 70 55 | 70 28 6c 65 66 74 20 6f | NTFPopU|p(left o|
|00002a40| 66 20 74 61 72 67 65 74 | 2d 32 2c 62 6f 74 74 6f |f target|-2,botto|
|00002a50| 6d 20 6f 66 20 74 61 72 | 67 65 74 2d 34 2c 22 6c |m of tar|get-4,"l|
|00002a60| 69 61 62 4c 69 73 74 22 | 2c 22 47 6c 6f 62 61 6c |iabList"|,"Global|
|00002a70| 22 29 0d 63 68 65 63 6b | 50 6f 70 28 74 68 65 20 |").check|Pop(the |
|00002a80| 74 69 63 6b 73 20 2d 20 | 44 6f 77 6e 53 74 61 72 |ticks - |DownStar|
|00002a90| 74 29 0d 69 66 20 69 74 | 3d 30 20 74 68 65 6e 20 |t).if it|=0 then |
|00002aa0| 65 78 69 74 20 6c 69 61 | 62 50 6f 70 0d 70 75 74 |exit lia|bPop.put|
|00002ab0| 20 69 74 20 69 6e 74 6f | 20 6e 61 76 50 69 63 6b | it into| navPick|
|00002ac0| 0d 70 75 74 20 6c 61 73 | 74 20 6c 69 6e 65 20 6f |.put las|t line o|
|00002ad0| 66 20 6e 61 76 50 69 63 | 6b 20 69 6e 74 6f 20 6e |f navPic|k into n|
|00002ae0| 6e 0d 69 66 20 6e 6e 3d | 22 a5 20 4c 69 61 62 69 |n.if nn=|". Liabi|
|00002af0| 6c 69 74 69 65 73 20 a5 | 22 20 74 68 65 6e 0d 6e |lities .|" then.n|
|00002b00| 6f 74 52 65 61 6c 20 6e | 6e 0d 65 78 69 74 20 6c |otReal n|n.exit l|
|00002b10| 69 61 62 50 6f 70 0d 65 | 6e 64 20 69 66 0d 67 6c |iabPop.e|nd if.gl|
|00002b20| 6f 62 61 6c 20 63 61 72 | 64 66 72 6f 6d 0d 70 75 |obal car|dfrom.pu|
|00002b30| 74 20 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 74 68 |t the na|me of th|
|00002b40| 69 73 20 63 64 20 69 6e | 74 6f 20 63 61 72 64 66 |is cd in|to cardf|
|00002b50| 72 6f 6d 0d 69 66 20 74 | 68 65 72 65 20 69 73 20 |rom.if t|here is |
|00002b60| 61 20 63 64 20 6e 6e 20 | 74 68 65 6e 0d 76 69 73 |a cd nn |then.vis|
|00002b70| 75 61 6c 20 69 72 69 73 | 20 6f 70 65 6e 20 66 61 |ual iris| open fa|
|00002b80| 73 74 0d 67 6f 20 63 64 | 20 6e 6e 0d 65 78 69 74 |st.go cd| nn.exit|
|00002b90| 20 6c 69 61 62 50 6f 70 | 0d 65 6e 64 20 69 66 0d | liabPop|.end if.|
|00002ba0| 61 6c 65 72 74 4e 6f 74 | 65 28 22 54 68 65 72 65 |alertNot|e("There|
|00002bb0| 20 69 73 20 6e 6f 20 64 | 65 74 61 69 6c 20 63 61 | is no d|etail ca|
|00002bc0| 72 64 20 61 76 61 69 6c | 61 62 6c 65 20 66 6f 72 |rd avail|able for|
|00002bd0| 20 74 68 65 20 63 61 74 | 65 67 6f 72 79 20 d2 22 | the cat|egory ."|
|00002be0| 26 6e 6e 26 22 d3 2e 22 | 29 0d 65 6e 64 20 6c 69 |&nn&".."|).end li|
|00002bf0| 61 62 50 6f 70 0d 0d 6f | 6e 20 6e 6f 74 52 65 61 |abPop..o|n notRea|
|00002c00| 6c 20 6e 6e 0d 61 6c 65 | 72 74 4e 6f 74 65 28 22 |l nn.ale|rtNote("|
|00002c10| d2 22 26 6e 6e 26 22 d3 | 22 26 22 20 69 73 20 61 |."&nn&".|"&" is a|
|00002c20| 20 74 69 74 6c 65 2c 20 | 6e 6f 74 20 61 20 63 61 | title, |not a ca|
|00002c30| 74 65 67 6f 72 79 2e 22 | 26 72 65 74 75 72 6e 26 |tegory."|&return&|
|00002c40| 72 65 74 75 72 6e 26 22 | 43 68 6f 6f 73 65 20 61 |return&"|Choose a|
|00002c50| 67 61 69 6e 2e 22 29 0d | 65 6e 64 20 6e 6f 74 52 |gain.").|end notR|
|00002c60| 65 61 6c 0d 0d 6f 6e 20 | 63 68 65 63 6b 50 6f 70 |eal..on |checkPop|
|00002c70| 20 74 69 63 6b 65 72 0d | 69 66 20 74 69 63 6b 65 | ticker.|if ticke|
|00002c80| 72 20 3c 20 34 35 20 74 | 68 65 6e 0d 61 6c 65 72 |r < 45 t|hen.aler|
|00002c90| 74 6e 6f 74 65 28 22 48 | 6f 6c 64 20 64 6f 77 6e |tnote("H|old down|
|00002ca0| 20 62 75 74 74 6f 6e 20 | 6c 6f 6e 67 65 72 20 74 | button |longer t|
|00002cb0| 6f 20 76 69 65 77 20 6d | 65 6e 75 2e 22 29 0d 45 |o view m|enu.").E|
|00002cc0| 54 48 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 63 68 |TH.end i|f.end ch|
|00002cd0| 65 63 6b 50 6f 70 0d 0d | 6f 6e 20 64 65 66 53 65 |eckPop..|on defSe|
|00002ce0| 6c 65 63 74 31 0d 67 6c | 6f 62 61 6c 20 64 65 66 |lect1.gl|obal def|
|00002cf0| 31 0d 70 75 74 20 74 68 | 65 20 74 69 63 6b 73 20 |1.put th|e ticks |
|00002d00| 69 6e 74 6f 20 44 6f 77 | 6e 53 74 61 72 74 0d 67 |into Dow|nStart.g|
|00002d10| 65 74 20 4e 54 46 50 6f | 70 55 70 28 6c 65 66 74 |et NTFPo|pUp(left|
|00002d20| 20 6f 66 20 74 61 72 67 | 65 74 2d 31 2c 62 6f 74 | of targ|et-1,bot|
|00002d30| 74 6f 6d 20 6f 66 20 74 | 61 72 67 65 74 2d 35 2c |tom of t|arget-5,|
|00002d40| 22 64 65 66 31 22 2c 22 | 47 6c 6f 62 61 6c 22 29 |"def1","|Global")|
|00002d50| 0d 63 68 65 63 6b 50 6f | 70 28 74 68 65 20 74 69 |.checkPo|p(the ti|
|00002d60| 63 6b 73 20 2d 20 44 6f | 77 6e 53 74 61 72 74 29 |cks - Do|wnStart)|
|00002d70| 0d 69 66 20 69 74 3d 30 | 20 74 68 65 6e 20 65 78 |.if it=0| then ex|
|00002d80| 69 74 20 64 65 66 53 65 | 6c 65 63 74 31 0d 70 75 |it defSe|lect1.pu|
|00002d90| 74 20 6c 61 73 74 20 6c | 69 6e 65 20 6f 66 20 69 |t last l|ine of i|
|00002da0| 74 20 69 6e 74 6f 20 74 | 68 65 20 74 61 72 67 65 |t into t|he targe|
|00002db0| 74 0d 65 6e 64 20 64 65 | 66 53 65 6c 65 63 74 31 |t.end de|fSelect1|
|00002dc0| 0d 0d 6f 6e 20 64 65 66 | 53 65 6c 65 63 74 32 0d |..on def|Select2.|
|00002dd0| 67 6c 6f 62 61 6c 20 64 | 65 66 32 0d 70 75 74 20 |global d|ef2.put |
|00002de0| 74 68 65 20 74 69 63 6b | 73 20 69 6e 74 6f 20 44 |the tick|s into D|
|00002df0| 6f 77 6e 53 74 61 72 74 | 0d 67 65 74 20 4e 54 46 |ownStart|.get NTF|
|00002e00| 50 6f 70 55 70 28 6c 65 | 66 74 20 6f 66 20 74 61 |PopUp(le|ft of ta|
|00002e10| 72 67 65 74 2d 31 2c 62 | 6f 74 74 6f 6d 20 6f 66 |rget-1,b|ottom of|
|00002e20| 20 74 61 72 67 65 74 2d | 35 2c 22 64 65 66 32 22 | target-|5,"def2"|
|00002e30| 2c 22 47 6c 6f 62 61 6c | 22 29 0d 63 68 65 63 6b |,"Global|").check|
|00002e40| 50 6f 70 28 74 68 65 20 | 74 69 63 6b 73 20 2d 20 |Pop(the |ticks - |
|00002e50| 44 6f 77 6e 53 74 61 72 | 74 29 0d 69 66 20 69 74 |DownStar|t).if it|
|00002e60| 3d 30 20 74 68 65 6e 20 | 65 78 69 74 20 64 65 66 |=0 then |exit def|
|00002e70| 53 65 6c 65 63 74 32 0d | 70 75 74 20 6c 61 73 74 |Select2.|put last|
|00002e80| 20 6c 69 6e 65 20 6f 66 | 20 69 74 20 69 6e 74 6f | line of| it into|
|00002e90| 20 74 68 65 20 74 61 72 | 67 65 74 0d 65 6e 64 20 | the tar|get.end |
|00002ea0| 64 65 66 53 65 6c 65 63 | 74 32 0d 0d 6f 6e 20 69 |defSelec|t2..on i|
|00002eb0| 6e 73 65 72 74 44 65 66 | 73 20 2d 2d 20 70 75 74 |nsertDef|s -- put|
|00002ec0| 20 64 65 66 69 6e 69 74 | 69 6f 6e 73 20 66 72 6f | definit|ions fro|
|00002ed0| 6d 20 50 72 65 66 73 20 | 63 64 0d 73 65 74 20 63 |m Prefs |cd.set c|
|00002ee0| 75 72 73 6f 72 20 74 6f | 20 62 75 73 79 0d 67 65 |ursor to| busy.ge|
|00002ef0| 74 44 65 66 73 0d 70 75 | 74 20 63 64 20 66 6c 64 |tDefs.pu|t cd fld|
|00002f00| 20 22 64 65 66 31 54 79 | 70 65 22 20 6f 66 20 63 | "def1Ty|pe" of c|
|00002f10| 64 20 22 50 72 65 66 73 | 22 20 69 6e 74 6f 20 64 |d "Prefs|" into d|
|00002f20| 65 66 31 54 79 70 65 0d | 70 75 74 20 63 64 20 66 |ef1Type.|put cd f|
|00002f30| 6c 64 20 22 64 65 66 32 | 54 79 70 65 22 20 6f 66 |ld "def2|Type" of|
|00002f40| 20 63 64 20 22 50 72 65 | 66 73 22 20 69 6e 74 6f | cd "Pre|fs" into|
|00002f50| 20 64 65 66 32 54 79 70 | 65 0d 70 75 74 20 22 53 | def2Typ|e.put "S|
|00002f60| 69 6e 67 6c 65 49 74 65 | 6d 2c 4d 75 6c 74 69 49 |ingleIte|m,MultiI|
|00002f70| 74 65 6d 2c 53 74 6f 63 | 6b 73 2c 52 65 70 6f 72 |tem,Stoc|ks,Repor|
|00002f80| 74 22 20 69 6e 74 6f 20 | 62 4c 69 73 74 0d 72 65 |t" into |bList.re|
|00002f90| 70 65 61 74 20 77 69 74 | 68 20 78 3d 31 20 74 6f |peat wit|h x=1 to|
|00002fa0| 20 34 0d 70 75 74 20 69 | 74 65 6d 20 78 20 6f 66 | 4.put i|tem x of|
|00002fb0| 20 62 4c 69 73 74 20 69 | 6e 74 6f 20 62 62 0d 73 | bList i|nto bb.s|
|00002fc0| 65 74 20 63 75 72 73 6f | 72 20 74 6f 20 62 75 73 |et curso|r to bus|
|00002fd0| 79 0d 70 75 74 20 64 65 | 66 31 54 79 70 65 20 69 |y.put de|f1Type i|
|00002fe0| 6e 74 6f 20 66 6c 64 20 | 22 64 65 66 31 54 79 70 |nto fld |"def1Typ|
|00002ff0| 65 22 20 6f 66 20 63 64 | 20 31 20 6f 66 20 62 67 |e" of cd| 1 of bg|
|00003000| 20 62 62 0d 70 75 74 20 | 64 65 66 32 54 79 70 65 | bb.put |def2Type|
|00003010| 20 69 6e 74 6f 20 66 6c | 64 20 22 64 65 66 32 54 | into fl|d "def2T|
|00003020| 79 70 65 22 20 6f 66 20 | 63 64 20 31 20 6f 66 20 |ype" of |cd 1 of |
|00003030| 62 67 20 62 62 0d 65 6e | 64 20 72 65 70 65 61 74 |bg bb.en|d repeat|
|00003040| 0d 65 6e 64 20 69 6e 73 | 65 72 74 44 65 66 73 0d |.end ins|ertDefs.|
|00003050| 0d 6f 6e 20 67 65 74 44 | 65 66 73 20 2d 2d 20 70 |.on getD|efs -- p|
|00003060| 75 74 20 64 65 66 73 20 | 69 6e 74 6f 20 67 6c 6f |ut defs |into glo|
|00003070| 62 61 6c 73 3b 20 64 6f | 6e 65 20 6f 6e 20 6f 70 |bals; do|ne on op|
|00003080| 65 6e 53 74 61 63 6b 2c | 20 65 74 63 2e 0d 67 6c |enStack,| etc..gl|
|00003090| 6f 62 61 6c 20 65 78 63 | 68 61 6e 67 65 73 2c 64 |obal exc|hanges,d|
|000030a0| 65 66 31 2c 64 65 66 32 | 0d 70 75 74 20 66 6c 64 |ef1,def2|.put fld|
|000030b0| 20 22 65 78 63 68 4c 69 | 73 74 22 20 6f 66 20 63 | "exchLi|st" of c|
|000030c0| 64 20 22 50 72 65 66 73 | 22 20 69 6e 74 6f 20 65 |d "Prefs|" into e|
|000030d0| 78 63 68 61 6e 67 65 73 | 0d 70 75 74 20 66 6c 64 |xchanges|.put fld|
|000030e0| 20 22 64 65 66 31 4c 69 | 73 74 22 20 6f 66 20 63 | "def1Li|st" of c|
|000030f0| 64 20 22 50 72 65 66 73 | 22 20 69 6e 74 6f 20 64 |d "Prefs|" into d|
|00003100| 65 66 31 0d 70 75 74 20 | 66 6c 64 20 22 64 65 66 |ef1.put |fld "def|
|00003110| 32 4c 69 73 74 22 20 6f | 66 20 63 64 20 22 50 72 |2List" o|f cd "Pr|
|00003120| 65 66 73 22 20 69 6e 74 | 6f 20 64 65 66 32 0d 65 |efs" int|o def2.e|
|00003130| 6e 64 20 67 65 74 44 65 | 66 73 0d 0d 6f 6e 20 6d |nd getDe|fs..on m|
|00003140| 6e 0d 6d 61 6b 65 4e 61 | 76 69 67 61 74 6f 72 0d |n.makeNa|vigator.|
|00003150| 65 6e 64 20 6d 6e 0d 0d | 6f 6e 20 6d 61 6b 65 4e |end mn..|on makeN|
|00003160| 61 76 69 67 61 74 6f 72 | 0d 73 65 6e 64 20 6d 61 |avigator|.send ma|
|00003170| 6b 65 4e 61 76 69 67 61 | 74 6f 72 20 74 6f 20 66 |keNaviga|tor to f|
|00003180| 6c 64 20 22 52 65 70 61 | 69 72 53 63 72 69 70 74 |ld "Repa|irScript|
|00003190| 22 20 6f 66 20 63 64 20 | 31 0d 65 6e 64 20 6d 61 |" of cd |1.end ma|
|000031a0| 6b 65 4e 61 76 69 67 61 | 74 6f 72 0d 0d 6f 6e 20 |keNaviga|tor..on |
|000031b0| 61 64 64 49 74 65 6d 0d | 73 65 6e 64 20 61 64 64 |addItem.|send add|
|000031c0| 49 74 65 6d 20 74 6f 20 | 66 6c 64 20 22 73 63 72 |Item to |fld "scr|
|000031d0| 69 70 74 65 72 22 20 6f | 66 20 63 64 20 31 0d 65 |ipter" o|f cd 1.e|
|000031e0| 6e 64 20 61 64 64 49 74 | 65 6d 0d 0d 6f 6e 20 6d |nd addIt|em..on m|
|000031f0| 61 6b 65 4c 69 73 74 73 | 0d 73 65 6e 64 20 6d 61 |akeLists|.send ma|
|00003200| 6b 65 4c 69 73 74 73 20 | 74 6f 20 66 6c 64 20 22 |keLists |to fld "|
|00003210| 52 65 70 61 69 72 53 63 | 72 69 70 74 22 20 6f 66 |RepairSc|ript" of|
|00003220| 20 63 64 20 31 0d 65 6e | 64 20 6d 61 6b 65 4c 69 | cd 1.en|d makeLi|
|00003230| 73 74 73 0d 0d 6f 6e 20 | 72 65 6e 61 6d 65 20 72 |sts..on |rename r|
|00003240| 65 6e 61 6d 65 57 68 61 | 74 0d 73 65 6e 64 20 22 |enameWha|t.send "|
|00003250| 72 65 6e 61 6d 65 20 72 | 65 6e 61 6d 65 57 68 61 |rename r|enameWha|
|00003260| 74 22 20 74 6f 20 66 6c | 64 20 22 73 63 72 69 70 |t" to fl|d "scrip|
|00003270| 74 65 72 22 20 6f 66 20 | 63 64 20 31 0d 65 6e 64 |ter" of |cd 1.end|
|00003280| 20 72 65 6e 61 6d 65 0d | 0d 6f 6e 20 72 65 61 73 | rename.|.on reas|
|00003290| 73 69 67 6e 0d 73 65 6e | 64 20 72 65 61 73 73 69 |sign.sen|d reassi|
|000032a0| 67 6e 20 74 6f 20 66 6c | 64 20 22 52 65 70 61 69 |gn to fl|d "Repai|
|000032b0| 72 53 63 72 69 70 74 22 | 20 6f 66 20 63 64 20 31 |rScript"| of cd 1|
|000032c0| 0d 65 6e 64 20 72 65 61 | 73 73 69 67 6e 0d 0d 6f |.end rea|ssign..o|
|000032d0| 6e 20 72 65 61 73 73 69 | 67 6e 54 68 69 73 0d 73 |n reassi|gnThis.s|
|000032e0| 65 6e 64 20 72 65 61 73 | 73 69 67 6e 54 68 69 73 |end reas|signThis|
|000032f0| 20 74 6f 20 66 6c 64 20 | 22 52 65 70 61 69 72 53 | to fld |"RepairS|
|00003300| 63 72 69 70 74 22 20 6f | 66 20 63 64 20 31 0d 65 |cript" o|f cd 1.e|
|00003310| 6e 64 20 72 65 61 73 73 | 69 67 6e 54 68 69 73 0d |nd reass|ignThis.|
|00003320| 0d 6f 6e 20 44 65 6c 65 | 74 65 43 61 74 0d 73 65 |.on Dele|teCat.se|
|00003330| 6e 64 20 44 65 6c 65 74 | 65 43 61 74 20 74 6f 20 |nd Delet|eCat to |
|00003340| 66 6c 64 20 22 73 63 72 | 69 70 74 65 72 22 20 6f |fld "scr|ipter" o|
|00003350| 66 20 63 64 20 31 0d 65 | 6e 64 20 44 65 6c 65 74 |f cd 1.e|nd Delet|
|00003360| 65 43 61 74 0d 0d 6f 6e | 20 44 65 6c 65 74 65 52 |eCat..on| DeleteR|
|00003370| 65 70 6f 72 74 0d 73 65 | 6e 64 20 44 65 6c 65 74 |eport.se|nd Delet|
|00003380| 65 52 65 70 6f 72 74 20 | 74 6f 20 66 6c 64 20 22 |eReport |to fld "|
|00003390| 73 63 72 69 70 74 65 72 | 22 20 6f 66 20 63 64 20 |scripter|" of cd |
|000033a0| 31 0d 65 6e 64 20 44 65 | 6c 65 74 65 52 65 70 6f |1.end De|leteRepo|
|000033b0| 72 74 0d 0d 6f 6e 20 72 | 61 6e 67 65 53 65 6c 65 |rt..on r|angeSele|
|000033c0| 63 74 0d 67 6c 6f 62 61 | 6c 20 72 61 6e 67 65 4c |ct.globa|l rangeL|
|000033d0| 69 73 74 0d 70 75 74 20 | 22 48 69 67 68 22 26 72 |ist.put |"High"&r|
|000033e0| 65 74 75 72 6e 26 22 4d | 6f 64 65 72 61 74 65 22 |eturn&"M|oderate"|
|000033f0| 26 72 65 74 75 72 6e 26 | 22 4c 6f 77 22 26 72 65 |&return&|"Low"&re|
|00003400| 74 75 72 6e 26 22 4e 6f | 6e 65 22 20 69 6e 74 6f |turn&"No|ne" into|
|00003410| 20 72 61 6e 67 65 4c 69 | 73 74 0d 70 75 74 20 74 | rangeLi|st.put t|
|00003420| 68 65 20 74 69 63 6b 73 | 20 69 6e 74 6f 20 64 6f |he ticks| into do|
|00003430| 77 6e 53 74 61 72 74 0d | 67 65 74 20 4e 54 46 50 |wnStart.|get NTFP|
|00003440| 6f 70 55 70 28 6c 65 66 | 74 20 6f 66 20 74 61 72 |opUp(lef|t of tar|
|00003450| 67 65 74 2d 32 2c 62 6f | 74 74 6f 6d 20 6f 66 20 |get-2,bo|ttom of |
|00003460| 74 61 72 67 65 74 2d 33 | 2c 22 72 61 6e 67 65 4c |target-3|,"rangeL|
|00003470| 69 73 74 22 2c 22 47 6c | 6f 62 61 6c 22 29 0d 63 |ist","Gl|obal").c|
|00003480| 68 65 63 6b 50 6f 70 28 | 74 68 65 20 74 69 63 6b |heckPop(|the tick|
|00003490| 73 20 2d 20 44 6f 77 6e | 53 74 61 72 74 29 0d 69 |s - Down|Start).i|
|000034a0| 66 20 69 74 3d 30 20 74 | 68 65 6e 20 65 78 69 74 |f it=0 t|hen exit|
|000034b0| 20 72 61 6e 67 65 53 65 | 6c 65 63 74 0d 70 75 74 | rangeSe|lect.put|
|000034c0| 20 6c 61 73 74 20 6c 69 | 6e 65 20 6f 66 20 69 74 | last li|ne of it|
|000034d0| 20 69 6e 74 6f 20 66 6c | 64 20 28 77 6f 72 64 20 | into fl|d (word |
|000034e0| 31 20 6f 66 20 73 68 6f | 72 74 20 6e 61 6d 65 20 |1 of sho|rt name |
|000034f0| 6f 66 20 74 61 72 67 65 | 74 29 0d 70 75 74 20 65 |of targe|t).put e|
|00003500| 6d 70 74 79 20 69 6e 74 | 6f 20 72 61 6e 67 65 4c |mpty int|o rangeL|
|00003510| 69 73 74 0d 65 6e 64 20 | 72 61 6e 67 65 53 65 6c |ist.end |rangeSel|
|00003520| 65 63 74 0d 0d 6f 6e 20 | 72 61 6e 67 65 53 65 6c |ect..on |rangeSel|
|00003530| 65 63 74 32 0d 67 6c 6f | 62 61 6c 20 72 61 6e 67 |ect2.glo|bal rang|
|00003540| 65 4c 69 73 74 0d 70 75 | 74 20 22 48 69 67 68 22 |eList.pu|t "High"|
|00003550| 26 72 65 74 75 72 6e 26 | 22 4d 6f 64 65 72 61 74 |&return&|"Moderat|
|00003560| 65 22 26 72 65 74 75 72 | 6e 26 22 4c 6f 77 22 26 |e"&retur|n&"Low"&|
|00003570| 72 65 74 75 72 6e 26 22 | 4e 6f 6e 65 22 26 72 65 |return&"|None"&re|
|00003580| 74 75 72 6e 26 22 44 6f | 65 73 6e d5 74 20 6d 61 |turn&"Do|esn.t ma|
|00003590| 74 74 65 72 22 20 69 6e | 74 6f 20 72 61 6e 67 65 |tter" in|to range|
|000035a0| 4c 69 73 74 0d 70 75 74 | 20 74 68 65 20 74 69 63 |List.put| the tic|
|000035b0| 6b 73 20 69 6e 74 6f 20 | 64 6f 77 6e 53 74 61 72 |ks into |downStar|
|000035c0| 74 0d 67 65 74 20 4e 54 | 46 50 6f 70 55 70 28 6c |t.get NT|FPopUp(l|
|000035d0| 65 66 74 20 6f 66 20 74 | 61 72 67 65 74 2d 32 2c |eft of t|arget-2,|
|000035e0| 62 6f 74 74 6f 6d 20 6f | 66 20 74 61 72 67 65 74 |bottom o|f target|
|000035f0| 2d 34 2c 22 72 61 6e 67 | 65 4c 69 73 74 22 2c 22 |-4,"rang|eList","|
|00003600| 47 6c 6f 62 61 6c 22 29 | 0d 63 68 65 63 6b 50 6f |Global")|.checkPo|
|00003610| 70 28 74 68 65 20 74 69 | 63 6b 73 20 2d 20 44 6f |p(the ti|cks - Do|
|00003620| 77 6e 53 74 61 72 74 29 | 0d 69 66 20 69 74 3d 30 |wnStart)|.if it=0|
|00003630| 20 74 68 65 6e 20 65 78 | 69 74 20 72 61 6e 67 65 | then ex|it range|
|00003640| 53 65 6c 65 63 74 32 0d | 70 75 74 20 6c 61 73 74 |Select2.|put last|
|00003650| 20 6c 69 6e 65 20 6f 66 | 20 69 74 20 69 6e 74 6f | line of| it into|
|00003660| 20 66 6c 64 20 28 77 6f | 72 64 20 31 20 6f 66 20 | fld (wo|rd 1 of |
|00003670| 73 68 6f 72 74 20 6e 61 | 6d 65 20 6f 66 20 74 61 |short na|me of ta|
|00003680| 72 67 65 74 29 0d 70 75 | 74 20 65 6d 70 74 79 20 |rget).pu|t empty |
|00003690| 69 6e 74 6f 20 72 61 6e | 67 65 4c 69 73 74 0d 65 |into ran|geList.e|
|000036a0| 6e 64 20 72 61 6e 67 65 | 53 65 6c 65 63 74 32 0d |nd range|Select2.|
|000036b0| 0d 6f 6e 20 73 68 6f 77 | 4e 6f 74 65 20 2d 2d 20 |.on show|Note -- |
|000036c0| 6f 6e 20 64 65 74 61 69 | 6c 20 63 61 72 64 73 0d |on detai|l cards.|
|000036d0| 70 75 74 20 62 67 20 66 | 6c 64 20 22 6e 6f 74 65 |put bg f|ld "note|
|000036e0| 73 22 20 69 6e 74 6f 20 | 6e 6f 74 65 72 0d 70 75 |s" into |noter.pu|
|000036f0| 74 20 74 68 65 20 73 68 | 6f 72 74 20 6e 61 6d 65 |t the sh|ort name|
|00003700| 20 6f 66 20 74 68 69 73 | 20 63 64 20 69 6e 74 6f | of this| cd into|
|00003710| 20 6e 61 6d 65 72 0d 70 | 75 74 20 57 53 54 6f 70 | namer.p|ut WSTop|
|00003720| 4c 65 66 74 28 32 35 30 | 2c 31 34 30 29 20 69 6e |Left(250|,140) in|
|00003730| 74 6f 20 54 4c 0d 70 75 | 74 20 57 69 6e 64 6f 77 |to TL.pu|t Window|
|00003740| 73 63 72 69 70 74 28 22 | 4e 6f 74 65 73 22 2c 6e |script("|Notes",n|
|00003750| 61 6d 65 72 2c 6e 6f 74 | 65 72 2c 54 4c 29 20 69 |amer,not|er,TL) i|
|00003760| 6e 74 6f 20 72 65 73 75 | 6c 74 65 72 0d 69 66 20 |nto resu|lter.if |
|00003770| 6c 69 6e 65 20 31 20 6f | 66 20 72 65 73 75 6c 74 |line 1 o|f result|
|00003780| 65 72 3d 22 4f 4b 22 20 | 74 68 65 6e 20 2d 2d 20 |er="OK" |then -- |
|00003790| 6e 6f 74 65 20 63 68 61 | 6e 67 65 0d 70 75 74 20 |note cha|nge.put |
|000037a0| 28 6c 69 6e 65 20 33 20 | 74 6f 20 35 30 20 6f 66 |(line 3 |to 50 of|
|000037b0| 20 72 65 73 75 6c 74 65 | 72 29 20 69 6e 74 6f 20 | resulte|r) into |
|000037c0| 66 6c 64 20 22 6e 6f 74 | 65 73 22 0d 65 6e 64 20 |fld "not|es".end |
|000037d0| 69 66 0d 65 6e 64 20 73 | 68 6f 77 4e 6f 74 65 0d |if.end s|howNote.|
|000037e0| 0d 6f 6e 20 63 68 6f 73 | 65 6e 0d 73 65 6c 65 63 |.on chos|en.selec|
|000037f0| 74 20 74 68 65 20 63 6c | 69 63 6b 4c 69 6e 65 0d |t the cl|ickLine.|
|00003800| 70 75 74 20 74 68 65 20 | 73 65 6c 65 63 74 65 64 |put the |selected|
|00003810| 54 65 78 74 20 69 6e 74 | 6f 20 74 6f 70 69 63 50 |Text int|o topicP|
|00003820| 69 63 6b 65 64 0d 76 69 | 73 75 61 6c 20 69 72 69 |icked.vi|sual iri|
|00003830| 73 20 6f 70 65 6e 0d 67 | 6f 20 63 64 20 74 6f 70 |s open.g|o cd top|
|00003840| 69 63 50 69 63 6b 65 64 | 0d 65 6e 64 20 63 68 6f |icPicked|.end cho|
|00003850| 73 65 6e 0d 0d 6f 6e 20 | 64 65 6c 65 74 65 54 68 |sen..on |deleteTh|
|00003860| 69 6e 67 0d 73 65 6e 64 | 20 64 65 6c 65 74 65 54 |ing.send| deleteT|
|00003870| 68 69 6e 67 20 74 6f 20 | 66 6c 64 20 22 73 63 72 |hing to |fld "scr|
|00003880| 69 70 74 65 72 22 20 6f | 66 20 63 64 20 31 0d 65 |ipter" o|f cd 1.e|
|00003890| 6e 64 20 64 65 6c 65 74 | 65 54 68 69 6e 67 0d 0d |nd delet|eThing..|
|000038a0| 6f 6e 20 73 65 6c 65 63 | 74 54 72 61 73 68 0d 73 |on selec|tTrash.s|
|000038b0| 65 6e 64 20 73 65 6c 65 | 63 74 54 72 61 73 68 20 |end sele|ctTrash |
|000038c0| 74 6f 20 66 6c 64 20 22 | 73 63 72 69 70 74 65 72 |to fld "|scripter|
|000038d0| 22 20 6f 66 20 63 64 20 | 31 0d 65 6e 64 20 73 65 |" of cd |1.end se|
|000038e0| 6c 65 63 74 54 72 61 73 | 68 0d 0d 6f 6e 20 6d 61 |lectTras|h..on ma|
|000038f0| 6b 65 54 72 61 73 68 67 | 6c 6f 62 61 6c 0d 73 65 |keTrashg|lobal.se|
|00003900| 6e 64 20 6d 61 6b 65 54 | 72 61 73 68 67 6c 6f 62 |nd makeT|rashglob|
|00003910| 61 6c 20 74 6f 20 66 6c | 64 20 22 73 63 72 69 70 |al to fl|d "scrip|
|00003920| 74 65 72 22 20 6f 66 20 | 63 64 20 31 0d 65 6e 64 |ter" of |cd 1.end|
|00003930| 20 6d 61 6b 65 54 72 61 | 73 68 67 6c 6f 62 61 6c | makeTra|shglobal|
|00003940| 0d 0d 66 75 6e 63 74 69 | 6f 6e 20 6d 61 6b 65 49 |..functi|on makeI|
|00003950| 74 65 6d 4c 69 73 74 20 | 2d 2d 20 61 6c 6c 20 64 |temList |-- all d|
|00003960| 65 74 61 69 6c 20 63 64 | 73 0d 70 75 74 20 66 6c |etail cd|s.put fl|
|00003970| 64 20 22 69 74 65 6d 4c | 69 73 74 41 22 20 6f 66 |d "itemL|istA" of|
|00003980| 20 63 64 20 31 20 69 6e | 74 6f 20 69 74 65 6d 4c | cd 1 in|to itemL|
|00003990| 69 73 74 0d 70 75 74 20 | 66 6c 64 20 22 69 74 65 |ist.put |fld "ite|
|000039a0| 6d 4c 69 73 74 4c 22 20 | 6f 66 20 63 64 20 31 20 |mListL" |of cd 1 |
|000039b0| 61 66 74 65 72 20 69 74 | 65 6d 4c 69 73 74 0d 73 |after it|emList.s|
|000039c0| 6f 72 74 20 6c 69 6e 65 | 73 20 6f 66 20 69 74 65 |ort line|s of ite|
|000039d0| 6d 4c 69 73 74 0d 72 65 | 74 75 72 6e 20 69 74 65 |mList.re|turn ite|
|000039e0| 6d 4c 69 73 74 0d 65 6e | 64 20 6d 61 6b 65 49 74 |mList.en|d makeIt|
|000039f0| 65 6d 4c 69 73 74 0d 0d | 66 75 6e 63 74 69 6f 6e |emList..|function|
|00003a00| 20 6d 61 6b 65 43 61 74 | 4c 69 73 74 20 2d 2d 20 | makeCat|List -- |
|00003a10| 61 6c 6c 20 63 61 74 65 | 67 6f 72 69 65 73 0d 70 |all cate|gories.p|
|00003a20| 75 74 20 66 6c 64 20 22 | 63 61 74 4c 69 73 74 41 |ut fld "|catListA|
|00003a30| 22 20 6f 66 20 63 64 20 | 31 20 69 6e 74 6f 20 63 |" of cd |1 into c|
|00003a40| 61 74 4c 69 73 74 0d 70 | 75 74 20 72 65 74 75 72 |atList.p|ut retur|
|00003a50| 6e 26 66 6c 64 20 22 63 | 61 74 4c 69 73 74 4c 22 |n&fld "c|atListL"|
|00003a60| 20 6f 66 20 63 64 20 31 | 20 61 66 74 65 72 20 63 | of cd 1| after c|
|00003a70| 61 74 4c 69 73 74 0d 73 | 6f 72 74 20 6c 69 6e 65 |atList.s|ort line|
|00003a80| 73 20 6f 66 20 63 61 74 | 4c 69 73 74 0d 72 65 74 |s of cat|List.ret|
|00003a90| 75 72 6e 20 63 61 74 4c | 69 73 74 0d 65 6e 64 20 |urn catL|ist.end |
|00003aa0| 6d 61 6b 65 43 61 74 4c | 69 73 74 0d 0d 6f 6e 20 |makeCatL|ist..on |
|00003ab0| 6d 61 6b 65 52 65 70 6f | 72 74 4c 69 73 74 0d 70 |makeRepo|rtList.p|
|00003ac0| 75 74 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |ut the n|umber of|
|00003ad0| 20 63 64 73 20 6f 66 20 | 62 67 20 22 52 65 70 6f | cds of |bg "Repo|
|00003ae0| 72 74 22 20 69 6e 74 6f | 20 6e 6e 0d 70 75 74 20 |rt" into| nn.put |
|00003af0| 65 6d 70 74 79 20 69 6e | 74 6f 20 72 72 0d 69 66 |empty in|to rr.if|
|00003b00| 20 6e 6e 3e 31 20 74 68 | 65 6e 0d 72 65 70 65 61 | nn>1 th|en.repea|
|00003b10| 74 20 77 69 74 68 20 78 | 3d 32 20 74 6f 20 6e 6e |t with x|=2 to nn|
|00003b20| 0d 70 75 74 20 28 74 68 | 65 20 73 68 6f 72 74 20 |.put (th|e short |
|00003b30| 6e 61 6d 65 20 6f 66 20 | 63 64 20 78 20 6f 66 20 |name of |cd x of |
|00003b40| 62 67 20 22 52 65 70 6f | 72 74 22 29 20 26 20 72 |bg "Repo|rt") & r|
|00003b50| 65 74 75 72 6e 20 61 66 | 74 65 72 20 72 72 0d 65 |eturn af|ter rr.e|
|00003b60| 6e 64 20 72 65 70 65 61 | 74 0d 65 6e 64 20 69 66 |nd repea|t.end if|
|00003b70| 0d 70 75 74 20 72 72 20 | 69 6e 74 6f 20 66 6c 64 |.put rr |into fld|
|00003b80| 20 22 72 65 70 6f 72 74 | 4c 69 73 74 22 20 6f 66 | "report|List" of|
|00003b90| 20 63 64 20 31 0d 65 6e | 64 20 6d 61 6b 65 52 65 | cd 1.en|d makeRe|
|00003ba0| 70 6f 72 74 4c 69 73 74 | 0d 0d 6f 6e 20 6d 61 6b |portList|..on mak|
|00003bb0| 65 4e 65 77 52 65 70 6f | 72 74 0d 73 65 6e 64 20 |eNewRepo|rt.send |
|00003bc0| 6d 61 6b 65 4e 65 77 52 | 65 70 6f 72 74 20 74 6f |makeNewR|eport to|
|00003bd0| 20 66 6c 64 20 22 73 63 | 72 69 70 74 65 72 22 20 | fld "sc|ripter" |
|00003be0| 6f 66 20 63 64 20 31 0d | 65 6e 64 20 6d 61 6b 65 |of cd 1.|end make|
|00003bf0| 4e 65 77 52 65 70 6f 72 | 74 0d 0d 6f 6e 20 69 74 |NewRepor|t..on it|
|00003c00| 65 6d 43 68 65 63 6b 65 | 72 0d 73 65 6e 64 20 69 |emChecke|r.send i|
|00003c10| 74 65 6d 43 68 65 63 6b | 65 72 20 74 6f 20 66 6c |temCheck|er to fl|
|00003c20| 64 20 22 73 63 72 69 70 | 74 65 72 22 20 6f 66 20 |d "scrip|ter" of |
|00003c30| 63 64 20 31 0d 65 6e 64 | 20 69 74 65 6d 43 68 65 |cd 1.end| itemChe|
|00003c40| 63 6b 65 72 0d 0d 6f 6e | 20 63 6f 75 6e 74 73 68 |cker..on| countsh|
|00003c50| 61 72 65 73 0d 73 65 6e | 64 20 63 6f 75 6e 74 73 |ares.sen|d counts|
|00003c60| 68 61 72 65 73 20 74 6f | 20 66 6c 64 20 22 73 74 |hares to| fld "st|
|00003c70| 6f 63 6b 73 63 72 69 70 | 74 22 20 6f 66 20 63 64 |ockscrip|t" of cd|
|00003c80| 20 31 0d 65 6e 64 20 63 | 6f 75 6e 74 73 68 61 72 | 1.end c|ountshar|
|00003c90| 65 73 0d 0d 6f 6e 20 6d | 69 6e 69 43 6f 75 6e 74 |es..on m|iniCount|
|00003ca0| 73 68 61 72 65 73 0d 67 | 6c 6f 62 61 6c 20 65 64 |shares.g|lobal ed|
|00003cb0| 69 74 74 0d 63 61 6c 63 | 73 74 6f 63 6b 0d 67 65 |itt.calc|stock.ge|
|00003cc0| 74 53 74 61 6e 64 69 6e | 67 0d 64 75 6d 70 74 6f |tStandin|g.dumpto|
|00003cd0| 53 75 6d 6d 61 72 79 0d | 70 75 74 20 65 6d 70 74 |Summary.|put empt|
|00003ce0| 79 20 69 6e 74 6f 20 65 | 64 69 74 74 0d 65 6e 64 |y into e|ditt.end|
|00003cf0| 20 6d 69 6e 69 43 6f 75 | 6e 74 73 68 61 72 65 73 | miniCou|ntshares|
|00003d00| 0d 0d 6f 6e 20 63 61 6c | 63 73 74 6f 63 6b 0d 73 |..on cal|cstock.s|
|00003d10| 65 6e 64 20 63 61 6c 63 | 73 74 6f 63 6b 20 74 6f |end calc|stock to|
|00003d20| 20 66 6c 64 20 22 73 74 | 6f 63 6b 73 63 72 69 70 | fld "st|ockscrip|
|00003d30| 74 22 20 6f 66 20 63 64 | 20 31 0d 65 6e 64 20 63 |t" of cd| 1.end c|
|00003d40| 61 6c 63 73 74 6f 63 6b | 0d 0d 6f 6e 20 63 61 6c |alcstock|..on cal|
|00003d50| 63 47 61 69 6e 0d 73 65 | 6e 64 20 63 61 6c 63 47 |cGain.se|nd calcG|
|00003d60| 61 69 6e 20 74 6f 20 66 | 6c 64 20 22 73 74 6f 63 |ain to f|ld "stoc|
|00003d70| 6b 73 63 72 69 70 74 22 | 20 6f 66 20 63 64 20 31 |kscript"| of cd 1|
|00003d80| 0d 65 6e 64 20 63 61 6c | 63 47 61 69 6e 0d 0d 6f |.end cal|cGain..o|
|00003d90| 6e 20 72 65 64 6f 44 69 | 73 70 6c 61 79 0d 73 65 |n redoDi|splay.se|
|00003da0| 6e 64 20 72 65 64 6f 44 | 69 73 70 6c 61 79 20 74 |nd redoD|isplay t|
|00003db0| 6f 20 66 6c 64 20 22 73 | 74 6f 63 6b 73 63 72 69 |o fld "s|tockscri|
|00003dc0| 70 74 22 20 6f 66 20 63 | 64 20 31 0d 65 6e 64 20 |pt" of c|d 1.end |
|00003dd0| 72 65 44 6f 44 69 73 70 | 6c 61 79 0d 0d 6f 6e 20 |reDoDisp|lay..on |
|00003de0| 67 65 74 53 74 61 6e 64 | 69 6e 67 0d 70 75 74 20 |getStand|ing.put |
|00003df0| 30 20 69 6e 74 6f 20 64 | 64 0d 70 75 74 20 30 20 |0 into d|d.put 0 |
|00003e00| 69 6e 74 6f 20 65 65 0d | 73 65 74 20 63 75 72 73 |into ee.|set curs|
|00003e10| 6f 72 20 74 6f 20 62 75 | 73 79 0d 69 66 20 68 69 |or to bu|sy.if hi|
|00003e20| 6c 69 74 65 20 6f 66 20 | 62 67 20 62 75 74 74 6f |lite of |bg butto|
|00003e30| 6e 20 69 64 20 31 32 33 | 3d 74 72 75 65 20 74 68 |n id 123|=true th|
|00003e40| 65 6e 20 70 75 74 20 73 | 74 72 69 70 69 74 28 66 |en put s|tripit(f|
|00003e50| 6c 64 20 22 63 6f 6d 6d | 73 22 29 20 69 6e 74 6f |ld "comm|s") into|
|00003e60| 20 64 64 0d 69 66 20 68 | 69 6c 69 74 65 20 6f 66 | dd.if h|ilite of|
|00003e70| 20 62 67 20 62 75 74 74 | 6f 6e 20 69 64 20 31 32 | bg butt|on id 12|
|00003e80| 34 3d 74 72 75 65 20 74 | 68 65 6e 20 70 75 74 20 |4=true t|hen put |
|00003e90| 73 74 72 69 70 69 74 28 | 66 6c 64 20 22 64 69 76 |stripit(|fld "div|
|00003ea0| 73 22 29 20 69 6e 74 6f | 20 65 65 0d 73 65 74 20 |s") into| ee.set |
|00003eb0| 74 68 65 20 6e 75 6d 62 | 65 72 66 6f 72 6d 61 74 |the numb|erformat|
|00003ec0| 20 74 6f 20 22 30 2e 22 | 0d 70 75 74 20 70 6c 61 | to "0."|.put pla|
|00003ed0| 63 65 53 69 67 6e 28 73 | 74 72 69 70 69 74 28 66 |ceSign(s|tripit(f|
|00003ee0| 6c 64 20 22 63 75 72 72 | 76 61 6c 22 29 2d 28 66 |ld "curr|val")-(f|
|00003ef0| 6c 64 20 22 63 61 73 68 | 49 6e 22 29 2b 28 66 6c |ld "cash|In")+(fl|
|00003f00| 64 20 22 63 61 73 68 4f | 75 74 22 29 2d 64 64 2b |d "cashO|ut")-dd+|
|00003f10| 65 65 29 20 69 6e 74 6f | 20 66 6c 64 20 22 70 72 |ee) into| fld "pr|
|00003f20| 6f 66 69 74 22 0d 65 6e | 64 20 67 65 74 53 74 61 |ofit".en|d getSta|
|00003f30| 6e 64 69 6e 67 0d 0d 6f | 6e 20 64 75 6d 70 74 6f |nding..o|n dumpto|
|00003f40| 53 75 6d 6d 61 72 79 0d | 73 65 6e 64 20 64 75 6d |Summary.|send dum|
|00003f50| 70 74 6f 53 75 6d 6d 61 | 72 79 20 74 6f 20 66 6c |ptoSumma|ry to fl|
|00003f60| 64 20 22 73 74 6f 63 6b | 73 63 72 69 70 74 22 20 |d "stock|script" |
|00003f70| 6f 66 20 63 64 20 31 0d | 65 6e 64 20 64 75 6d 70 |of cd 1.|end dump|
|00003f80| 74 6f 53 75 6d 6d 61 72 | 79 0d 0d 6f 6e 20 63 68 |toSummar|y..on ch|
|00003f90| 65 63 6b 6d 61 78 4d 69 | 6e 20 63 70 0d 73 65 74 |eckmaxMi|n cp.set|
|00003fa0| 20 74 68 65 20 6e 75 6d | 62 65 72 66 6f 72 6d 61 | the num|berforma|
|00003fb0| 74 20 74 6f 20 22 30 2e | 30 30 30 22 0d 70 75 74 |t to "0.|000".put|
|00003fc0| 20 65 6d 70 74 79 20 69 | 6e 74 6f 20 66 6c 64 20 | empty i|nto fld |
|00003fd0| 22 68 69 67 68 4c 6f 77 | 22 0d 72 65 70 65 61 74 |"highLow|".repeat|
|00003fe0| 20 77 69 74 68 20 78 3d | 31 20 74 6f 20 32 0d 2d | with x=|1 to 2.-|
|00003ff0| 2d 20 6e 6f 20 65 6e 74 | 72 79 20 79 65 74 3a 0d |- no ent|ry yet:.|
|00004000| 69 66 20 6c 69 6e 65 20 | 78 20 6f 66 20 66 6c 64 |if line |x of fld|
|00004010| 20 22 6d 61 78 4d 69 6e | 22 3d 65 6d 70 74 79 20 | "maxMin|"=empty |
|00004020| 74 68 65 6e 0d 70 75 74 | 20 63 70 20 69 6e 74 6f |then.put| cp into|
|00004030| 20 6c 69 6e 65 20 78 20 | 6f 66 20 66 6c 64 20 22 | line x |of fld "|
|00004040| 6d 61 78 4d 69 6e 22 0d | 6e 65 78 74 20 72 65 70 |maxMin".|next rep|
|00004050| 65 61 74 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 72 |eat.end |if.end r|
|00004060| 65 70 65 61 74 0d 2d 2d | 69 66 20 70 72 65 76 20 |epeat.--|if prev |
|00004070| 65 6e 74 72 79 20 74 6f | 20 63 6f 6d 70 61 72 65 |entry to| compare|
|00004080| 3a 0d 69 66 20 63 70 3e | 6c 69 6e 65 20 31 20 6f |:.if cp>|line 1 o|
|00004090| 66 20 66 6c 64 20 22 6d | 61 78 4d 69 6e 22 20 74 |f fld "m|axMin" t|
|000040a0| 68 65 6e 0d 70 75 74 20 | 63 70 20 69 6e 74 6f 20 |hen.put |cp into |
|000040b0| 6c 69 6e 65 20 31 20 6f | 66 20 66 6c 64 20 22 6d |line 1 o|f fld "m|
|000040c0| 61 78 4d 69 6e 22 0d 70 | 75 74 20 22 2a 22 20 69 |axMin".p|ut "*" i|
|000040d0| 6e 74 6f 20 6c 69 6e 65 | 20 31 20 6f 66 20 66 6c |nto line| 1 of fl|
|000040e0| 64 20 22 68 69 67 68 4c | 6f 77 22 0d 65 6e 64 20 |d "highL|ow".end |
|000040f0| 69 66 0d 69 66 20 63 70 | 3c 6c 69 6e 65 20 32 20 |if.if cp|<line 2 |
|00004100| 6f 66 20 66 6c 64 20 22 | 6d 61 78 4d 69 6e 22 20 |of fld "|maxMin" |
|00004110| 74 68 65 6e 0d 70 75 74 | 20 63 70 20 69 6e 74 6f |then.put| cp into|
|00004120| 20 6c 69 6e 65 20 32 20 | 6f 66 20 66 6c 64 20 22 | line 2 |of fld "|
|00004130| 6d 61 78 4d 69 6e 22 0d | 70 75 74 20 22 2a 22 20 |maxMin".|put "*" |
|00004140| 69 6e 74 6f 20 6c 69 6e | 65 20 32 20 6f 66 20 66 |into lin|e 2 of f|
|00004150| 6c 64 20 22 68 69 67 68 | 4c 6f 77 22 0d 65 6e 64 |ld "high|Low".end|
|00004160| 20 69 66 0d 65 6e 64 20 | 63 68 65 63 6b 6d 61 78 | if.end |checkmax|
|00004170| 4d 69 6e 0d 0d 6f 6e 20 | 63 68 65 63 6b 41 6c 61 |Min..on |checkAla|
|00004180| 72 6d 73 20 63 70 0d 70 | 75 74 20 65 6d 70 74 79 |rms cp.p|ut empty|
|00004190| 20 69 6e 74 6f 20 66 6c | 64 20 22 61 6c 61 72 6d | into fl|d "alarm|
|000041a0| 22 20 2d 2d 63 6c 65 61 | 72 20 22 a5 22 0d 69 66 |" --clea|r ".".if|
|000041b0| 20 6c 69 6e 65 20 31 20 | 6f 66 20 66 6c 64 20 22 | line 1 |of fld "|
|000041c0| 6e 6f 74 69 66 79 22 ad | 65 6d 70 74 79 20 74 68 |notify".|empty th|
|000041d0| 65 6e 0d 69 66 20 63 70 | 3e 6c 69 6e 65 20 31 20 |en.if cp|>line 1 |
|000041e0| 6f 66 20 66 6c 64 20 22 | 6e 6f 74 69 66 79 22 20 |of fld "|notify" |
|000041f0| 74 68 65 6e 0d 70 75 74 | 20 22 a5 22 20 69 6e 74 |then.put| "." int|
|00004200| 6f 20 6c 69 6e 65 20 31 | 20 6f 66 20 66 6c 64 20 |o line 1| of fld |
|00004210| 22 61 6c 61 72 6d 22 0d | 65 6c 73 65 0d 70 75 74 |"alarm".|else.put|
|00004220| 20 65 6d 70 74 79 20 69 | 6e 74 6f 20 6c 69 6e 65 | empty i|nto line|
|00004230| 20 31 20 6f 66 20 66 6c | 64 20 22 61 6c 61 72 6d | 1 of fl|d "alarm|
|00004240| 22 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 69 66 0d |".end if|.end if.|
|00004250| 69 66 20 6c 69 6e 65 20 | 32 20 6f 66 20 66 6c 64 |if line |2 of fld|
|00004260| 20 22 6e 6f 74 69 66 79 | 22 ad 65 6d 70 74 79 20 | "notify|".empty |
|00004270| 74 68 65 6e 0d 69 66 20 | 63 70 3c 6c 69 6e 65 20 |then.if |cp<line |
|00004280| 32 20 6f 66 20 66 6c 64 | 20 22 6e 6f 74 69 66 79 |2 of fld| "notify|
|00004290| 22 20 74 68 65 6e 0d 70 | 75 74 20 22 a5 22 20 69 |" then.p|ut "." i|
|000042a0| 6e 74 6f 20 6c 69 6e 65 | 20 32 20 6f 66 20 66 6c |nto line| 2 of fl|
|000042b0| 64 20 22 61 6c 61 72 6d | 22 0d 65 6c 73 65 0d 70 |d "alarm|".else.p|
|000042c0| 75 74 20 65 6d 70 74 79 | 20 69 6e 74 6f 20 6c 69 |ut empty| into li|
|000042d0| 6e 65 20 32 20 6f 66 20 | 66 6c 64 20 22 61 6c 61 |ne 2 of |fld "ala|
|000042e0| 72 6d 22 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 |rm".end |if.end i|
|000042f0| 66 0d 65 6e 64 20 63 68 | 65 63 6b 41 6c 61 72 6d |f.end ch|eckAlarm|
|00004300| 73 0d 0d 6f 6e 20 63 68 | 65 63 6b 73 74 6f 63 6b |s..on ch|eckstock|
|00004310| 73 0d 73 65 6e 64 20 63 | 68 65 63 6b 53 74 6f 63 |s.send c|heckStoc|
|00004320| 6b 73 20 74 6f 20 66 6c | 64 20 22 73 63 72 69 70 |ks to fl|d "scrip|
|00004330| 74 65 72 22 20 6f 66 20 | 63 64 20 31 0d 65 6e 64 |ter" of |cd 1.end|
|00004340| 20 63 68 65 63 6b 73 74 | 6f 63 6b 73 0d 0d 6f 6e | checkst|ocks..on|
|00004350| 20 6d 61 6b 65 53 74 6f | 63 6b 4c 69 73 74 0d 73 | makeSto|ckList.s|
|00004360| 65 6e 64 20 6d 61 6b 65 | 53 74 6f 63 6b 4c 69 73 |end make|StockLis|
|00004370| 74 20 74 6f 20 66 6c 64 | 20 22 73 63 72 69 70 74 |t to fld| "script|
|00004380| 65 72 22 20 6f 66 20 63 | 64 20 31 0d 65 6e 64 20 |er" of c|d 1.end |
|00004390| 6d 61 6b 65 53 74 6f 63 | 6b 4c 69 73 74 0d 0d 6f |makeStoc|kList..o|
|000043a0| 6e 20 63 68 65 63 6b 73 | 74 6f 63 6b 73 42 72 69 |n checks|tocksBri|
|000043b0| 65 66 0d 67 6c 6f 62 61 | 6c 20 62 72 69 65 66 73 |ef.globa|l briefs|
|000043c0| 74 6f 63 6b 73 0d 70 75 | 74 20 22 74 72 75 65 22 |tocks.pu|t "true"|
|000043d0| 20 69 6e 74 6f 20 62 72 | 69 65 66 73 74 6f 63 6b | into br|iefstock|
|000043e0| 73 0d 63 68 65 63 6b 73 | 74 6f 63 6b 73 0d 65 6e |s.checks|tocks.en|
|000043f0| 64 20 63 68 65 63 6b 73 | 74 6f 63 6b 73 42 72 69 |d checks|tocksBri|
|00004400| 65 66 0d 0d 6f 6e 20 65 | 64 69 74 54 68 69 73 4e |ef..on e|ditThisN|
|00004410| 61 6d 65 0d 73 65 6e 64 | 20 65 64 69 74 54 68 69 |ame.send| editThi|
|00004420| 73 4e 61 6d 65 20 74 6f | 20 66 6c 64 20 22 73 63 |sName to| fld "sc|
|00004430| 72 69 70 74 65 72 22 20 | 6f 66 20 63 64 20 31 0d |ripter" |of cd 1.|
|00004440| 65 6e 64 20 65 64 69 74 | 54 68 69 73 4e 61 6d 65 |end edit|ThisName|
|00004450| 0d 0d 6f 6e 20 62 6c 69 | 6e 6b 65 72 20 6f 62 6a |..on bli|nker obj|
|00004460| 65 63 74 0d 73 65 74 20 | 68 69 6c 69 74 65 20 6f |ect.set |hilite o|
|00004470| 66 20 6f 62 6a 65 63 74 | 20 74 6f 20 6e 6f 74 20 |f object| to not |
|00004480| 74 68 65 20 68 69 6c 69 | 74 65 20 6f 66 20 6f 62 |the hili|te of ob|
|00004490| 6a 65 63 74 0d 77 61 69 | 74 20 33 0d 73 65 74 20 |ject.wai|t 3.set |
|000044a0| 68 69 6c 69 74 65 20 6f | 66 20 6f 62 6a 65 63 74 |hilite o|f object|
|000044b0| 20 74 6f 20 6e 6f 74 20 | 74 68 65 20 68 69 6c 69 | to not |the hili|
|000044c0| 74 65 20 6f 66 20 6f 62 | 6a 65 63 74 0d 65 6e 64 |te of ob|ject.end|
|000044d0| 20 62 6c 69 6e 6b 65 72 | 0d 0d 6f 6e 20 72 65 70 | blinker|..on rep|
|000044e0| 61 69 72 49 74 0d 73 65 | 6e 64 20 72 65 70 61 69 |airIt.se|nd repai|
|000044f0| 72 49 74 20 74 6f 20 66 | 6c 64 20 22 72 65 70 61 |rIt to f|ld "repa|
|00004500| 69 72 53 63 72 69 70 74 | 22 20 6f 66 20 66 69 72 |irScript|" of fir|
|00004510| 73 74 20 63 64 0d 65 6e | 64 20 72 65 70 61 69 72 |st cd.en|d repair|
|00004520| 49 74 0d 0d 6f 6e 20 72 | 65 70 61 69 72 41 6c 6c |It..on r|epairAll|
|00004530| 0d 73 65 6e 64 20 72 65 | 70 61 69 72 41 6c 6c 20 |.send re|pairAll |
|00004540| 74 6f 20 66 6c 64 20 22 | 72 65 70 61 69 72 53 63 |to fld "|repairSc|
|00004550| 72 69 70 74 22 20 6f 66 | 20 66 69 72 73 74 20 63 |ript" of| first c|
|00004560| 64 0d 65 6e 64 20 72 65 | 70 61 69 72 41 6c 6c 0d |d.end re|pairAll.|
|00004570| 0d 6f 6e 20 73 63 61 6e | 41 6c 6c 0d 73 65 6e 64 |.on scan|All.send|
|00004580| 20 73 63 61 6e 41 6c 6c | 20 74 6f 20 66 6c 64 20 | scanAll| to fld |
|00004590| 22 72 65 70 61 69 72 53 | 63 72 69 70 74 22 20 6f |"repairS|cript" o|
|000045a0| 66 20 66 69 72 73 74 20 | 63 64 0d 65 6e 64 20 73 |f first |cd.end s|
|000045b0| 63 61 6e 41 6c 6c 0d 0d | 6f 6e 20 63 6c 65 61 6e |canAll..|on clean|
|000045c0| 55 70 0d 73 65 6e 64 20 | 63 6c 65 61 6e 55 70 20 |Up.send |cleanUp |
|000045d0| 74 6f 20 66 6c 64 20 22 | 72 65 70 61 69 72 53 63 |to fld "|repairSc|
|000045e0| 72 69 70 74 22 20 6f 66 | 20 66 69 72 73 74 20 63 |ript" of| first c|
|000045f0| 64 0d 65 6e 64 20 63 6c | 65 61 6e 55 70 0d 0d 6f |d.end cl|eanUp..o|
|00004600| 6e 20 70 75 74 53 74 6f | 63 6b 74 68 69 6e 67 73 |n putSto|ckthings|
|00004610| 20 78 20 2d 2d 20 70 75 | 74 20 66 6f 72 6d 61 74 | x -- pu|t format|
|00004620| 74 65 64 20 69 6e 66 6f | 20 69 6e 74 6f 20 70 6f |ted info| into po|
|00004630| 72 74 72 65 67 20 66 6c | 64 0d 70 75 74 20 61 6c |rtreg fl|d.put al|
|00004640| 69 67 6e 28 6d 61 6b 65 | 53 74 6f 63 6b 4c 69 6e |ign(make|StockLin|
|00004650| 65 73 28 78 29 2c 22 32 | 36 2c 52 2c 20 22 2c 22 |es(x),"2|6,R, ","|
|00004660| 38 2c 52 2c 20 22 2c 22 | 38 2c 52 2c 20 22 2c 22 |8,R, ","|8,R, ","|
|00004670| 38 2c 52 2c 20 22 2c 22 | 37 2c 52 2c 20 22 2c 22 |8,R, ","|7,R, ","|
|00004680| 38 2c 52 2c 20 22 29 20 | 69 6e 74 6f 20 78 78 0d |8,R, ") |into xx.|
|00004690| 73 65 74 20 63 75 72 73 | 6f 72 20 74 6f 20 62 75 |set curs|or to bu|
|000046a0| 73 79 0d 70 75 74 20 69 | 74 65 6d 20 32 20 6f 66 |sy.put i|tem 2 of|
|000046b0| 20 66 75 6c 6c 46 69 6e | 64 28 66 6c 64 20 22 70 | fullFin|d(fld "p|
|000046c0| 6f 72 74 72 65 67 22 20 | 6f 66 20 63 64 20 22 73 |ortreg" |of cd "s|
|000046d0| 74 6f 63 6b 70 6f 72 74 | 22 2c 6c 69 6e 65 20 78 |tockport|",line x|
|000046e0| 20 6f 66 20 66 6c 64 20 | 22 73 74 6f 63 6b 22 20 | of fld |"stock" |
|000046f0| 6f 66 20 63 64 20 22 73 | 74 6f 63 6b 70 6f 72 74 |of cd "s|tockport|
|00004700| 22 29 20 69 6e 74 6f 20 | 6c 69 6e 65 72 0d 69 66 |") into |liner.if|
|00004710| 20 6c 69 6e 65 72 3d 65 | 6d 70 74 79 20 74 68 65 | liner=e|mpty the|
|00004720| 6e 20 2d 2d 20 70 6f 72 | 74 72 65 67 20 66 6c 64 |n -- por|treg fld|
|00004730| 20 65 6d 70 74 69 65 64 | 20 64 75 72 69 6e 67 20 | emptied| during |
|00004740| 72 65 70 61 69 72 0d 70 | 75 74 20 28 74 68 65 20 |repair.p|ut (the |
|00004750| 6e 75 6d 62 65 72 20 6f | 66 20 6c 69 6e 65 73 20 |number o|f lines |
|00004760| 6f 66 20 66 6c 64 20 22 | 70 6f 72 74 72 65 67 22 |of fld "|portreg"|
|00004770| 20 6f 66 20 63 64 20 22 | 73 74 6f 63 6b 70 6f 72 | of cd "|stockpor|
|00004780| 74 22 29 20 2b 20 31 20 | 69 6e 74 6f 20 6c 69 6e |t") + 1 |into lin|
|00004790| 65 72 0d 65 6e 64 20 69 | 66 0d 70 75 74 20 78 78 |er.end i|f.put xx|
|000047a0| 20 69 6e 74 6f 20 6c 69 | 6e 65 20 6c 69 6e 65 72 | into li|ne liner|
|000047b0| 20 6f 66 20 66 6c 64 20 | 22 70 6f 72 74 72 65 67 | of fld |"portreg|
|000047c0| 22 20 6f 66 20 63 64 20 | 22 73 74 6f 63 6b 70 6f |" of cd |"stockpo|
|000047d0| 72 74 22 0d 65 6e 64 20 | 70 75 74 53 74 6f 63 6b |rt".end |putStock|
|000047e0| 74 68 69 6e 67 73 0d 0d | 6f 6e 20 75 70 64 61 74 |things..|on updat|
|000047f0| 65 50 72 69 63 65 63 61 | 6c 63 20 63 70 2c 63 68 |ePriceca|lc cp,ch|
|00004800| 61 6e 67 65 73 74 6f 63 | 6b 20 2d 2d 20 75 70 64 |angestoc|k -- upd|
|00004810| 61 74 65 20 73 74 6f 63 | 6b 20 63 64 27 73 20 70 |ate stoc|k cd's p|
|00004820| 72 69 63 65 20 66 72 6f | 6d 20 73 74 6f 63 6b 70 |rice fro|m stockp|
|00004830| 6f 72 74 0d 6c 6f 63 6b | 20 73 63 72 65 65 6e 0d |ort.lock| screen.|
|00004840| 67 6f 20 63 64 20 63 68 | 61 6e 67 65 73 74 6f 63 |go cd ch|angestoc|
|00004850| 6b 0d 70 75 74 20 63 70 | 20 69 6e 74 6f 20 66 6c |k.put cp| into fl|
|00004860| 64 20 22 63 75 72 72 70 | 72 69 63 65 22 0d 6d 69 |d "currp|rice".mi|
|00004870| 6e 69 43 6f 75 6e 74 73 | 68 61 72 65 73 0d 63 68 |niCounts|hares.ch|
|00004880| 65 63 6b 6d 61 78 4d 69 | 6e 20 63 70 0d 63 68 65 |eckmaxMi|n cp.che|
|00004890| 63 6b 41 6c 61 72 6d 73 | 20 63 70 0d 67 6f 20 63 |ckAlarms| cp.go c|
|000048a0| 64 20 22 73 74 6f 63 6b | 70 6f 72 74 22 0d 75 6e |d "stock|port".un|
|000048b0| 6c 6f 63 6b 20 73 63 72 | 65 65 6e 0d 65 6e 64 20 |lock scr|een.end |
|000048c0| 75 70 64 61 74 65 50 72 | 69 63 65 63 61 6c 63 0d |updatePr|icecalc.|
|000048d0| 0d 6f 6e 20 6d 61 72 6b | 54 68 65 43 61 72 64 73 |.on mark|TheCards|
|000048e0| 20 70 72 69 6e 74 4c 69 | 73 74 0d 70 75 74 20 73 | printLi|st.put s|
|000048f0| 65 6c 65 63 74 49 74 28 | 70 72 69 6e 74 4c 69 73 |electIt(|printLis|
|00004900| 74 2c 66 6c 64 20 22 70 | 72 69 6e 74 66 69 6c 74 |t,fld "p|rintfilt|
|00004910| 65 72 22 2c 22 41 6c 6c | 20 69 74 65 6d 73 22 2c |er","All| items",|
|00004920| 22 49 74 65 6d 73 20 74 | 6f 20 70 72 69 6e 74 22 |"Items t|o print"|
|00004930| 29 20 69 6e 74 6f 20 70 | 72 69 6e 74 4c 69 73 74 |) into p|rintList|
|00004940| 0d 70 75 74 20 70 72 69 | 6e 74 4c 69 73 74 20 69 |.put pri|ntList i|
|00004950| 6e 74 6f 20 66 6c 64 20 | 22 70 72 69 6e 74 46 69 |nto fld |"printFi|
|00004960| 6c 74 65 72 22 0d 6c 6f | 63 6b 20 73 63 72 65 65 |lter".lo|ck scree|
|00004970| 6e 0d 73 65 74 20 63 75 | 72 73 6f 72 20 74 6f 20 |n.set cu|rsor to |
|00004980| 62 75 73 79 0d 72 65 70 | 65 61 74 20 77 69 74 68 |busy.rep|eat with|
|00004990| 20 78 3d 31 20 74 6f 20 | 74 68 65 20 6e 75 6d 62 | x=1 to |the numb|
|000049a0| 65 72 20 6f 66 20 6c 69 | 6e 65 73 20 6f 66 20 70 |er of li|nes of p|
|000049b0| 72 69 6e 74 4c 69 73 74 | 0d 73 65 74 20 6d 61 72 |rintList|.set mar|
|000049c0| 6b 65 64 20 6f 66 20 63 | 64 20 28 6c 69 6e 65 20 |ked of c|d (line |
|000049d0| 78 20 6f 66 20 70 72 69 | 6e 74 4c 69 73 74 29 20 |x of pri|ntList) |
|000049e0| 74 6f 20 74 72 75 65 0d | 65 6e 64 20 72 65 70 65 |to true.|end repe|
|000049f0| 61 74 0d 65 6e 64 20 6d | 61 72 6b 54 68 65 43 61 |at.end m|arkTheCa|
|00004a00| 72 64 73 0d 0d 6f 6e 20 | 50 72 69 6e 74 52 65 70 |rds..on |PrintRep|
|00004a10| 6f 72 74 20 77 68 69 63 | 68 52 65 70 6f 72 74 0d |ort whic|hReport.|
|00004a20| 6f 70 65 6e 20 72 65 70 | 6f 72 74 20 70 72 69 6e |open rep|ort prin|
|00004a30| 74 69 6e 67 20 77 69 74 | 68 20 74 65 6d 70 6c 61 |ting wit|h templa|
|00004a40| 74 65 20 77 68 69 63 68 | 52 65 70 6f 72 74 0d 70 |te which|Report.p|
|00004a50| 72 69 6e 74 20 6d 61 72 | 6b 65 64 20 63 64 73 0d |rint mar|ked cds.|
|00004a60| 63 6c 6f 73 65 20 70 72 | 69 6e 74 69 6e 67 0d 65 |close pr|inting.e|
|00004a70| 6e 64 20 50 72 69 6e 74 | 52 65 70 6f 72 74 0d 0d |nd Print|Report..|
|00004a80| 6f 6e 20 65 72 61 73 65 | 53 75 72 65 0d 70 75 74 |on erase|Sure.put|
|00004a90| 20 77 69 6e 64 6f 77 73 | 63 72 69 70 74 28 22 45 | windows|cript("E|
|00004aa0| 72 61 73 65 72 22 2c 57 | 53 54 6f 70 6c 65 66 74 |raser",W|STopleft|
|00004ab0| 28 32 35 30 2c 33 30 30 | 29 29 20 69 6e 74 6f 20 |(250,300|)) into |
|00004ac0| 72 72 0d 69 66 20 6c 69 | 6e 65 20 31 20 6f 66 20 |rr.if li|ne 1 of |
|00004ad0| 72 72 ad 22 45 72 61 73 | 65 22 20 74 68 65 6e 20 |rr."Eras|e" then |
|00004ae0| 45 54 48 0d 65 6e 64 20 | 65 72 61 73 65 53 75 72 |ETH.end |eraseSur|
|00004af0| 65 0d 0d 6f 6e 20 64 65 | 6c 65 74 65 53 75 72 65 |e..on de|leteSure|
|00004b00| 0d 70 75 74 20 77 69 6e | 64 6f 77 73 63 72 69 70 |.put win|dowscrip|
|00004b10| 74 28 22 44 65 6c 65 74 | 65 72 22 2c 57 53 54 6f |t("Delet|er",WSTo|
|00004b20| 70 6c 65 66 74 28 32 35 | 30 2c 33 30 30 29 29 20 |pleft(25|0,300)) |
|00004b30| 69 6e 74 6f 20 72 72 0d | 69 66 20 6c 69 6e 65 20 |into rr.|if line |
|00004b40| 31 20 6f 66 20 72 72 ad | 22 44 65 6c 65 74 65 22 |1 of rr.|"Delete"|
|00004b50| 20 74 68 65 6e 20 45 54 | 48 0d 65 6e 64 20 64 65 | then ET|H.end de|
|00004b60| 6c 65 74 65 53 75 72 65 | 0d 0d 6f 6e 20 64 65 6c |leteSure|..on del|
|00004b70| 65 74 65 53 75 72 65 32 | 0d 70 75 74 20 77 69 6e |eteSure2|.put win|
|00004b80| 64 6f 77 73 63 72 69 70 | 74 28 22 44 65 6c 65 74 |dowscrip|t("Delet|
|00004b90| 65 72 32 22 2c 57 53 54 | 6f 70 6c 65 66 74 28 32 |er2",WST|opleft(2|
|00004ba0| 35 30 2c 33 30 30 29 29 | 20 69 6e 74 6f 20 72 72 |50,300))| into rr|
|00004bb0| 0d 69 66 20 6c 69 6e 65 | 20 31 20 6f 66 20 72 72 |.if line| 1 of rr|
|00004bc0| ad 22 44 65 6c 65 74 65 | 22 20 74 68 65 6e 20 45 |."Delete|" then E|
|00004bd0| 54 48 0d 65 6e 64 20 64 | 65 6c 65 74 65 53 75 72 |TH.end d|eleteSur|
|00004be0| 65 32 0d 0d 6f 6e 20 64 | 65 6c 65 74 65 53 75 72 |e2..on d|eleteSur|
|00004bf0| 65 33 20 63 61 72 64 65 | 72 0d 70 75 74 20 22 41 |e3 carde|r.put "A|
|00004c00| 72 65 20 79 6f 75 20 73 | 75 72 65 20 79 6f 75 20 |re you s|ure you |
|00004c10| 77 61 6e 74 20 74 6f 20 | 64 65 6c 65 74 65 20 d2 |want to |delete .|
|00004c20| 22 26 63 61 72 64 65 72 | 26 22 d3 3f 22 20 69 6e |"&carder|&".?" in|
|00004c30| 74 6f 20 71 71 0d 70 75 | 74 20 77 69 6e 64 6f 77 |to qq.pu|t window|
|00004c40| 73 63 72 69 70 74 28 22 | 44 65 6c 65 74 65 72 33 |script("|Deleter3|
|00004c50| 22 2c 57 53 54 6f 70 6c | 65 66 74 28 32 35 30 2c |",WSTopl|eft(250,|
|00004c60| 33 30 30 29 2c 71 71 29 | 20 69 6e 74 6f 20 72 72 |300),qq)| into rr|
|00004c70| 0d 69 66 20 6c 69 6e 65 | 20 31 20 6f 66 20 72 72 |.if line| 1 of rr|
|00004c80| ad 22 44 65 6c 65 74 65 | 22 20 74 68 65 6e 20 45 |."Delete|" then E|
|00004c90| 54 48 0d 65 6e 64 20 64 | 65 6c 65 74 65 53 75 72 |TH.end d|eleteSur|
|00004ca0| 65 33 0d 0d 6f 6e 20 65 | 72 61 73 65 4f 70 65 6e |e3..on e|raseOpen|
|00004cb0| 0d 70 75 74 20 22 59 6f | 75 20 6d 61 79 20 6e 65 |.put "Yo|u may ne|
|00004cc0| 65 64 20 74 6f 20 61 64 | 6a 75 73 74 20 74 68 65 |ed to ad|just the|
|00004cd0| 20 23 20 6f 66 20 6f 70 | 65 6e 20 73 68 61 72 65 | # of op|en share|
|00004ce0| 73 20 61 6e 64 20 74 68 | 65 20 6f 70 65 6e 20 66 |s and th|e open f|
|00004cf0| 65 65 73 20 6e 6f 77 2e | 20 43 6c 69 63 6b 20 6f |ees now.| Click o|
|00004d00| 6e 20 74 68 65 20 6c 69 | 6e 65 22 20 69 6e 74 6f |n the li|ne" into|
|00004d10| 20 71 71 0d 70 75 74 20 | 22 20 79 6f 75 20 77 61 | qq.put |" you wa|
|00004d20| 6e 74 20 74 6f 20 6d 6f | 64 69 66 79 2e 22 20 61 |nt to mo|dify." a|
|00004d30| 66 74 65 72 20 71 71 0d | 61 6c 65 72 74 4e 6f 74 |fter qq.|alertNot|
|00004d40| 65 28 71 71 29 0d 65 6e | 64 20 65 72 61 73 65 4f |e(qq).en|d eraseO|
|00004d50| 70 65 6e 0d 0d 6f 6e 20 | 63 61 6e 63 65 6c 54 72 |pen..on |cancelTr|
|00004d60| 61 6e 73 20 2d 2d 20 63 | 61 6e 63 65 6c 20 62 74 |ans -- c|ancel bt|
|00004d70| 6e 73 20 69 6e 20 73 74 | 6f 63 6b 20 62 75 79 2c |ns in st|ock buy,|
|00004d80| 73 65 6c 6c 2c 64 69 76 | 2c 73 70 6c 69 74 0d 67 |sell,div|,split.g|
|00004d90| 6c 6f 62 61 6c 20 74 72 | 61 6e 73 63 61 72 64 2c |lobal tr|anscard,|
|00004da0| 65 64 69 74 74 0d 6c 6f | 63 6b 20 73 63 72 65 65 |editt.lo|ck scree|
|00004db0| 6e 0d 64 6f 20 22 69 66 | 20 74 68 65 72 65 20 69 |n.do "if| there i|
|00004dc0| 73 20 61 22 26 26 74 72 | 61 6e 73 63 61 72 64 26 |s a"&&tr|anscard&|
|00004dd0| 26 22 74 68 65 6e 20 67 | 6f 20 74 72 61 6e 73 63 |&"then g|o transc|
|00004de0| 61 72 64 20 65 6c 73 65 | 20 67 6f 20 63 64 20 31 |ard else| go cd 1|
|00004df0| 22 0d 75 6e 6c 6f 63 6b | 20 73 63 72 65 65 6e 20 |".unlock| screen |
|00004e00| 77 69 74 68 20 62 61 72 | 6e 20 64 6f 6f 72 20 63 |with bar|n door c|
|00004e10| 6c 6f 73 65 0d 70 75 74 | 20 65 6d 70 74 79 20 69 |lose.put| empty i|
|00004e20| 6e 74 6f 20 65 64 69 74 | 74 0d 65 6e 64 20 63 61 |nto edit|t.end ca|
|00004e30| 6e 63 65 6c 54 72 61 6e | 73 0d 0d 6f 6e 20 63 68 |ncelTran|s..on ch|
|00004e40| 65 63 6b 4e 75 6d 62 65 | 72 20 6e 75 6d 0d 69 66 |eckNumbe|r num.if|
|00004e50| 20 6e 75 6d 20 69 73 20 | 6e 6f 74 20 61 20 6e 75 | num is |not a nu|
|00004e60| 6d 62 65 72 20 74 68 65 | 6e 0d 61 6c 65 72 74 4e |mber the|n.alertN|
|00004e70| 6f 74 65 28 22 54 68 69 | 73 20 6e 65 65 64 73 20 |ote("Thi|s needs |
|00004e80| 74 6f 20 62 65 20 61 20 | 6e 75 6d 62 65 72 21 22 |to be a |number!"|
|00004e90| 29 0d 73 65 6c 65 63 74 | 20 74 65 78 74 20 6f 66 |).select| text of|
|00004ea0| 20 74 61 72 67 65 74 0d | 45 54 48 0d 65 6e 64 20 | target.|ETH.end |
|00004eb0| 69 66 0d 65 6e 64 20 63 | 68 65 63 6b 6e 75 6d 62 |if.end c|hecknumb|
|00004ec0| 65 72 0d 0d 6f 6e 20 68 | 69 64 65 50 72 6f 6d 70 |er..on h|idePromp|
|00004ed0| 74 0d 67 6c 6f 62 61 6c | 20 68 69 64 65 4e 6f 74 |t.global| hideNot|
|00004ee0| 0d 69 66 20 68 69 64 65 | 4e 6f 74 3d 22 74 72 75 |.if hide|Not="tru|
|00004ef0| 65 22 20 74 68 65 6e 20 | 65 78 69 74 20 68 69 64 |e" then |exit hid|
|00004f00| 65 50 72 6f 6d 70 74 0d | 69 66 20 74 68 65 72 65 |ePrompt.|if there|
|00004f10| 20 69 73 20 61 20 77 69 | 6e 64 6f 77 20 22 50 72 | is a wi|ndow "Pr|
|00004f20| 6f 6d 70 74 22 20 74 68 | 65 6e 0d 77 73 53 65 6e |ompt" th|en.wsSen|
|00004f30| 64 20 22 70 72 6f 6d 70 | 74 22 2c 30 2c 22 63 6c |d "promp|t",0,"cl|
|00004f40| 6f 73 65 22 0d 65 6e 64 | 20 69 66 0d 69 66 20 74 |ose".end| if.if t|
|00004f50| 68 65 72 65 20 69 73 20 | 61 20 77 69 6e 64 6f 77 |here is |a window|
|00004f60| 20 22 50 72 6f 6d 70 74 | 22 20 74 68 65 6e 0d 63 | "Prompt|" then.c|
|00004f70| 6c 6f 73 65 20 77 69 6e | 64 6f 77 20 22 50 72 6f |lose win|dow "Pro|
|00004f80| 6d 70 74 22 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |mpt".end| if.end |
|00004f90| 68 69 64 65 50 72 6f 6d | 70 74 0d 0d 6f 6e 20 70 |hideProm|pt..on p|
|00004fa0| 72 6f 6d 70 74 65 72 20 | 74 65 78 74 74 0d 70 75 |rompter |textt.pu|
|00004fb0| 74 20 57 53 54 6f 70 4c | 65 66 74 28 33 30 30 2c |t WSTopL|eft(300,|
|00004fc0| 35 30 29 20 69 6e 74 6f | 20 54 4c 50 0d 69 66 20 |50) into| TLP.if |
|00004fd0| 74 68 65 72 65 20 69 73 | 20 61 20 77 69 6e 64 6f |there is| a windo|
|00004fe0| 77 20 22 50 72 6f 6d 70 | 74 22 20 74 68 65 6e 20 |w "Promp|t" then |
|00004ff0| 2d 2d 20 6d 6f 64 69 66 | 79 0d 77 73 53 65 74 20 |-- modif|y.wsSet |
|00005000| 22 50 72 6f 6d 70 74 22 | 2c 22 74 68 65 54 65 78 |"Prompt"|,"theTex|
|00005010| 74 22 2c 22 74 65 78 74 | 22 2c 74 65 78 74 74 0d |t","text|",textt.|
|00005020| 77 73 53 65 74 20 22 50 | 72 6f 6d 70 74 22 2c 22 |wsSet "P|rompt","|
|00005030| 50 72 6f 6d 70 74 22 2c | 22 74 6f 70 4c 65 66 74 |Prompt",|"topLeft|
|00005040| 22 2c 54 4c 50 0d 65 6c | 73 65 20 2d 2d 20 63 72 |",TLP.el|se -- cr|
|00005050| 65 61 74 65 0d 67 65 74 | 20 77 69 6e 64 6f 77 73 |eate.get| windows|
|00005060| 63 72 69 70 74 28 22 70 | 72 6f 6d 70 74 22 2c 74 |cript("p|rompt",t|
|00005070| 65 78 74 74 2c 54 4c 50 | 29 0d 65 6e 64 20 69 66 |extt,TLP|).end if|
|00005080| 0d 65 6e 64 20 70 72 6f | 6d 70 74 65 72 0d 0d 6f |.end pro|mpter..o|
|00005090| 6e 20 66 69 6c 74 65 72 | 49 74 20 63 68 6f 69 63 |n filter|It choic|
|000050a0| 65 73 20 2d 2d 20 64 6f | 20 74 68 69 6e 67 73 0d |es -- do| things.|
|000050b0| 6c 6f 63 6b 20 73 63 72 | 65 65 6e 0d 73 6f 72 74 |lock scr|een.sort|
|000050c0| 20 63 68 6f 69 63 65 73 | 0d 70 75 74 20 63 68 6f | choices|.put cho|
|000050d0| 69 63 65 73 20 69 6e 74 | 6f 20 66 69 65 6c 64 20 |ices int|o field |
|000050e0| 22 73 46 69 6c 74 65 72 | 22 0d 69 66 20 66 6c 64 |"sFilter|".if fld|
|000050f0| 20 22 73 46 69 6c 74 65 | 72 22 69 73 20 6e 6f 74 | "sFilte|r"is not|
|00005100| 20 65 6d 70 74 79 20 74 | 68 65 6e 0d 72 65 70 65 | empty t|hen.repe|
|00005110| 61 74 20 77 69 74 68 20 | 78 3d 31 20 74 6f 20 74 |at with |x=1 to t|
|00005120| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 6c 69 6e |he numbe|r of lin|
|00005130| 65 73 20 6f 66 20 66 6c | 64 20 22 73 46 69 6c 74 |es of fl|d "sFilt|
|00005140| 65 72 22 20 2d 2d 20 6d | 61 6b 65 20 75 6e 69 71 |er" -- m|ake uniq|
|00005150| 75 65 0d 70 75 74 20 22 | a5 22 20 62 65 66 6f 72 |ue.put "|." befor|
|00005160| 65 20 6c 69 6e 65 20 78 | 20 6f 66 20 66 6c 64 20 |e line x| of fld |
|00005170| 22 73 46 69 6c 74 65 72 | 22 0d 70 75 74 20 22 a5 |"sFilter|".put ".|
|00005180| 22 20 61 66 74 65 72 20 | 6c 69 6e 65 20 78 20 6f |" after |line x o|
|00005190| 66 20 66 6c 64 20 22 73 | 46 69 6c 74 65 72 22 0d |f fld "s|Filter".|
|000051a0| 65 6e 64 20 72 65 70 65 | 61 74 0d 70 75 74 20 22 |end repe|at.put "|
|000051b0| c3 22 20 69 6e 74 6f 20 | 66 6c 64 20 22 66 43 68 |." into |fld "fCh|
|000051c0| 65 63 6b 22 0d 65 6c 73 | 65 0d 70 75 74 20 65 6d |eck".els|e.put em|
|000051d0| 70 74 79 20 69 6e 74 6f | 20 66 6c 64 20 22 66 43 |pty into| fld "fC|
|000051e0| 68 65 63 6b 22 0d 65 6e | 64 20 69 66 0d 75 6e 6c |heck".en|d if.unl|
|000051f0| 6f 63 6b 20 73 63 72 65 | 65 6e 0d 65 6e 64 20 66 |ock scre|en.end f|
|00005200| 69 6c 74 65 72 49 74 0d | 0d 6f 6e 20 63 68 65 63 |ilterIt.|.on chec|
|00005210| 6b 43 61 6e 63 65 6c 20 | 69 74 32 0d 69 66 20 28 |kCancel |it2.if (|
|00005220| 69 74 32 3d 22 63 61 6e | 63 65 6c 22 29 20 6f 72 |it2="can|cel") or|
|00005230| 20 28 69 74 32 3d 65 6d | 70 74 79 29 20 74 68 65 | (it2=em|pty) the|
|00005240| 6e 20 45 54 48 0d 65 6e | 64 20 63 68 65 63 6b 43 |n ETH.en|d checkC|
|00005250| 61 6e 63 65 6c 0d 0d 6f | 6e 20 76 65 72 69 66 79 |ancel..o|n verify|
|00005260| 4e 6f 74 65 73 20 2d 2d | 20 72 65 6d 6f 76 65 20 |Notes --| remove |
|00005270| 6e 6f 74 65 73 20 66 72 | 6f 6d 20 64 65 6c 65 74 |notes fr|om delet|
|00005280| 65 64 20 63 61 74 73 0d | 70 75 74 20 63 64 20 66 |ed cats.|put cd f|
|00005290| 6c 64 20 22 63 4e 6f 74 | 65 73 22 20 6f 66 20 63 |ld "cNot|es" of c|
|000052a0| 64 20 31 20 69 6e 74 6f | 20 74 68 65 4e 6f 74 65 |d 1 into| theNote|
|000052b0| 73 0d 70 75 74 20 28 66 | 6c 64 20 22 63 61 74 4c |s.put (f|ld "catL|
|000052c0| 69 73 74 41 22 20 6f 66 | 20 63 64 20 31 29 26 72 |istA" of| cd 1)&r|
|000052d0| 65 74 75 72 6e 26 28 66 | 6c 64 20 22 63 61 74 4c |eturn&(f|ld "catL|
|000052e0| 69 73 74 4c 22 20 6f 66 | 20 63 64 20 31 29 20 69 |istL" of| cd 1) i|
|000052f0| 6e 74 6f 20 74 68 65 43 | 61 74 73 0d 73 65 74 20 |nto theC|ats.set |
|00005300| 69 74 65 6d 44 65 6c 69 | 6d 69 74 65 72 20 74 6f |itemDeli|miter to|
|00005310| 20 22 bd 22 0d 72 65 70 | 65 61 74 20 77 69 74 68 | ".".rep|eat with|
|00005320| 20 78 3d 28 6e 75 6d 62 | 65 72 20 6f 66 20 6c 69 | x=(numb|er of li|
|00005330| 6e 65 73 20 6f 66 20 74 | 68 65 4e 6f 74 65 73 29 |nes of t|heNotes)|
|00005340| 20 64 6f 77 6e 20 74 6f | 20 31 0d 73 65 74 20 63 | down to| 1.set c|
|00005350| 75 72 73 6f 72 20 74 6f | 20 62 75 73 79 0d 70 75 |ursor to| busy.pu|
|00005360| 74 20 73 74 72 69 70 28 | 22 bd 22 2c 28 69 74 65 |t strip(|".",(ite|
|00005370| 6d 20 32 20 6f 66 20 6c | 69 6e 65 20 78 20 6f 66 |m 2 of l|ine x of|
|00005380| 20 74 68 65 4e 6f 74 65 | 73 29 29 20 69 6e 74 6f | theNote|s)) into|
|00005390| 20 74 65 6d 70 0d 70 75 | 74 20 74 65 78 74 54 6f | temp.pu|t textTo|
|000053a0| 4c 69 6e 65 4e 75 6d 28 | 74 65 6d 70 2c 74 68 65 |LineNum(|temp,the|
|000053b0| 43 61 74 73 29 20 69 6e | 74 6f 20 74 74 0d 69 66 |Cats) in|to tt.if|
|000053c0| 20 74 74 3d 7a 65 72 6f | 20 74 68 65 6e 20 64 65 | tt=zero| then de|
|000053d0| 6c 65 74 65 20 6c 69 6e | 65 20 78 20 6f 66 20 74 |lete lin|e x of t|
|000053e0| 68 65 4e 6f 74 65 73 0d | 65 6e 64 20 72 65 70 65 |heNotes.|end repe|
|000053f0| 61 74 0d 70 75 74 20 74 | 68 65 4e 6f 74 65 73 20 |at.put t|heNotes |
|00005400| 69 6e 74 6f 20 63 64 20 | 66 6c 64 20 22 63 4e 6f |into cd |fld "cNo|
|00005410| 74 65 73 22 20 6f 66 20 | 63 64 20 31 0d 65 6e 64 |tes" of |cd 1.end|
|00005420| 20 76 65 72 69 66 79 4e | 6f 74 65 73 0d 0d 66 75 | verifyN|otes..fu|
|00005430| 6e 63 74 69 6f 6e 20 74 | 65 78 74 54 6f 4c 69 6e |nction t|extToLin|
|00005440| 65 4e 75 6d 20 74 68 65 | 54 65 78 74 2c 74 68 65 |eNum the|Text,the|
|00005450| 53 6f 75 72 63 65 20 2d | 2d 20 6e 65 65 64 20 66 |Source -|- need f|
|00005460| 6f 72 20 69 6d 70 6f 72 | 74 20 66 72 6f 6d 20 41 |or impor|t from A|
|00005470| 4f 4c 2f 76 65 72 69 66 | 79 4e 6f 74 65 73 2f 4e |OL/verif|yNotes/N|
|00005480| 65 74 20 57 6f 72 74 68 | 0d 69 66 20 28 74 68 65 |et Worth|.if (the|
|00005490| 54 65 78 74 3d 65 6d 70 | 74 79 29 20 6f 72 20 28 |Text=emp|ty) or (|
|000054a0| 74 68 65 53 6f 75 72 63 | 65 3d 65 6d 70 74 79 29 |theSourc|e=empty)|
|000054b0| 20 74 68 65 6e 20 72 65 | 74 75 72 6e 20 7a 65 72 | then re|turn zer|
|000054c0| 6f 0d 70 75 74 20 72 65 | 74 75 72 6e 20 26 20 74 |o.put re|turn & t|
|000054d0| 68 65 53 6f 75 72 63 65 | 20 26 20 72 65 74 75 72 |heSource| & retur|
|000054e0| 6e 20 69 6e 74 6f 20 74 | 68 65 53 6f 75 72 63 65 |n into t|heSource|
|000054f0| 0d 72 65 74 75 72 6e 20 | 74 68 65 20 6e 75 6d 62 |.return |the numb|
|00005500| 65 72 20 6f 66 20 6c 69 | 6e 65 73 20 6f 66 20 63 |er of li|nes of c|
|00005510| 68 61 72 20 31 20 74 6f | 20 c2 0d 6f 66 66 73 65 |har 1 to| ..offse|
|00005520| 74 28 72 65 74 75 72 6e | 20 26 20 74 68 65 54 65 |t(return| & theTe|
|00005530| 78 74 20 26 20 72 65 74 | 75 72 6e 2c 74 68 65 53 |xt & ret|urn,theS|
|00005540| 6f 75 72 63 65 29 20 6f | 66 20 74 68 65 53 6f 75 |ource) o|f theSou|
|00005550| 72 63 65 0d 65 6e 64 20 | 74 65 78 74 54 6f 4c 69 |rce.end |textToLi|
|00005560| 6e 65 4e 75 6d 0d 0d 66 | 75 6e 63 74 69 6f 6e 20 |neNum..f|unction |
|00005570| 73 74 72 69 70 69 74 20 | 76 61 6c 75 65 20 2d 2d |stripit |value --|
|00005580| 20 72 65 6d 6f 76 65 20 | 24 2c 63 6f 6d 6d 61 0d | remove |$,comma.|
|00005590| 72 65 74 75 72 6e 20 73 | 74 72 69 70 28 22 24 2c |return s|trip("$,|
|000055a0| 22 2c 76 61 6c 75 65 29 | 0d 65 6e 64 20 73 74 72 |",value)|.end str|
|000055b0| 69 70 69 74 0d 0d 66 75 | 6e 63 74 69 6f 6e 20 73 |ipit..fu|nction s|
|000055c0| 74 72 69 70 69 74 61 6c | 6c 20 76 61 6c 75 65 20 |tripital|l value |
|000055d0| 2d 2d 20 72 65 6d 6f 76 | 65 20 24 2c 63 6f 6d 6d |-- remov|e $,comm|
|000055e0| 61 20 26 20 64 65 63 69 | 6d 61 6c 73 0d 70 75 74 |a & deci|mals.put|
|000055f0| 20 73 74 72 69 70 28 22 | 24 2c 22 2c 76 61 6c 75 | strip("|$,",valu|
|00005600| 65 29 20 69 6e 74 6f 20 | 76 61 6c 75 65 0d 72 65 |e) into |value.re|
|00005610| 74 75 72 6e 20 72 6f 75 | 6e 64 28 76 61 6c 75 65 |turn rou|nd(value|
|00005620| 29 0d 65 6e 64 20 73 74 | 72 69 70 69 74 61 6c 6c |).end st|ripitall|
|00005630| 0d 0d 66 75 6e 63 74 69 | 6f 6e 20 73 74 72 69 70 |..functi|on strip|
|00005640| 69 74 50 65 72 63 20 76 | 61 6c 75 65 20 2d 2d 20 |itPerc v|alue -- |
|00005650| 72 65 6d 6f 76 65 20 25 | 2c 63 6f 6d 6d 61 0d 72 |remove %|,comma.r|
|00005660| 65 74 75 72 6e 20 73 74 | 72 69 70 28 22 25 2c 22 |eturn st|rip("%,"|
|00005670| 2c 76 61 6c 75 65 29 0d | 65 6e 64 20 73 74 72 69 |,value).|end stri|
|00005680| 70 69 74 50 65 72 63 0d | 0d 66 75 6e 63 74 69 6f |pitPerc.|.functio|
|00005690| 6e 20 66 6f 72 6d 61 74 | 69 74 20 76 61 6c 75 65 |n format|it value|
|000056a0| 20 2d 2d 20 24 2c 63 6f | 6d 6d 61 20 28 64 65 63 | -- $,co|mma (dec|
|000056b0| 69 6d 61 6c 73 20 6f 72 | 20 6e 6f 74 29 0d 70 75 |imals or| not).pu|
|000056c0| 74 20 73 74 72 69 70 69 | 74 28 76 61 6c 75 65 29 |t stripi|t(value)|
|000056d0| 20 69 6e 74 6f 20 76 61 | 6c 75 65 0d 70 75 74 20 | into va|lue.put |
|000056e0| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 63 68 |the numb|er of ch|
|000056f0| 61 72 73 20 6f 66 20 76 | 61 6c 75 65 20 69 6e 74 |ars of v|alue int|
|00005700| 6f 20 63 63 0d 69 66 20 | 22 2e 22 20 69 73 20 69 |o cc.if |"." is i|
|00005710| 6e 20 76 61 6c 75 65 20 | 74 68 65 6e 20 73 75 62 |n value |then sub|
|00005720| 74 72 61 63 74 20 33 20 | 66 72 6f 6d 20 63 63 20 |tract 3 |from cc |
|00005730| 2d 2d 20 6c 61 73 74 20 | 33 20 63 68 61 72 73 20 |-- last |3 chars |
|00005740| 2d 20 64 65 63 2e 20 70 | 74 20 2b 20 64 65 63 69 |- dec. p|t + deci|
|00005750| 6d 61 6c 73 0d 69 66 20 | 63 63 3e 33 20 74 68 65 |mals.if |cc>3 the|
|00005760| 6e 20 70 75 74 20 22 2c | 22 20 62 65 66 6f 72 65 |n put ",|" before|
|00005770| 20 63 68 61 72 20 28 63 | 63 2d 32 29 20 6f 66 20 | char (c|c-2) of |
|00005780| 76 61 6c 75 65 0d 69 66 | 20 63 63 3e 36 20 74 68 |value.if| cc>6 th|
|00005790| 65 6e 20 70 75 74 20 22 | 2c 22 20 62 65 66 6f 72 |en put "|," befor|
|000057a0| 65 20 63 68 61 72 20 28 | 63 63 2d 35 29 20 6f 66 |e char (|cc-5) of|
|000057b0| 20 76 61 6c 75 65 0d 70 | 75 74 20 70 6c 61 63 65 | value.p|ut place|
|000057c0| 53 69 67 6e 28 76 61 6c | 75 65 29 20 69 6e 74 6f |Sign(val|ue) into|
|000057d0| 20 76 61 6c 75 65 0d 72 | 65 74 75 72 6e 20 76 61 | value.r|eturn va|
|000057e0| 6c 75 65 0d 65 6e 64 20 | 66 6f 72 6d 61 74 69 74 |lue.end |formatit|
|000057f0| 0d 0d 66 75 6e 63 74 69 | 6f 6e 20 66 6f 72 6d 61 |..functi|on forma|
|00005800| 74 69 74 32 20 76 61 6c | 75 65 20 2d 2d 20 24 2c |tit2 val|ue -- $,|
|00005810| 32 20 64 65 63 0d 70 75 | 74 20 73 74 72 69 70 69 |2 dec.pu|t stripi|
|00005820| 74 28 76 61 6c 75 65 29 | 20 69 6e 74 6f 20 74 65 |t(value)| into te|
|00005830| 73 74 0d 73 65 74 20 6e | 75 6d 62 65 72 66 6f 72 |st.set n|umberfor|
|00005840| 6d 61 74 20 74 6f 20 22 | 30 2e 30 30 22 0d 61 64 |mat to "|0.00".ad|
|00005850| 64 20 30 20 74 6f 20 74 | 65 73 74 0d 72 65 74 75 |d 0 to t|est.retu|
|00005860| 72 6e 20 70 6c 61 63 65 | 53 69 67 6e 28 74 65 73 |rn place|Sign(tes|
|00005870| 74 29 0d 65 6e 64 20 66 | 6f 72 6d 61 74 69 74 32 |t).end f|ormatit2|
|00005880| 0d 0d 66 75 6e 63 74 69 | 6f 6e 20 66 6f 72 6d 61 |..functi|on forma|
|00005890| 74 69 74 33 20 76 61 6c | 75 65 20 2d 2d 20 24 2c |tit3 val|ue -- $,|
|000058a0| 33 20 64 65 63 0d 70 75 | 74 20 73 74 72 69 70 69 |3 dec.pu|t stripi|
|000058b0| 74 28 76 61 6c 75 65 29 | 20 69 6e 74 6f 20 74 65 |t(value)| into te|
|000058c0| 73 74 0d 73 65 74 20 6e | 75 6d 62 65 72 66 6f 72 |st.set n|umberfor|
|000058d0| 6d 61 74 20 74 6f 20 22 | 30 2e 30 30 30 22 0d 61 |mat to "|0.000".a|
|000058e0| 64 64 20 30 20 74 6f 20 | 74 65 73 74 0d 72 65 74 |dd 0 to |test.ret|
|000058f0| 75 72 6e 20 70 6c 61 63 | 65 53 69 67 6e 28 74 65 |urn plac|eSign(te|
|00005900| 73 74 29 0d 65 6e 64 20 | 66 6f 72 6d 61 74 69 74 |st).end |formatit|
|00005910| 33 0d 0d 66 75 6e 63 74 | 69 6f 6e 20 70 6c 61 63 |3..funct|ion plac|
|00005920| 65 53 69 67 6e 20 74 65 | 73 74 65 72 0d 69 66 20 |eSign te|ster.if |
|00005930| 22 2d 22 20 69 73 20 69 | 6e 20 74 65 73 74 65 72 |"-" is i|n tester|
|00005940| 20 74 68 65 6e 0d 70 75 | 74 20 65 6d 70 74 79 20 | then.pu|t empty |
|00005950| 69 6e 74 6f 20 63 68 61 | 72 20 6f 66 66 73 65 74 |into cha|r offset|
|00005960| 28 22 2d 22 2c 74 65 73 | 74 65 72 29 20 6f 66 20 |("-",tes|ter) of |
|00005970| 74 65 73 74 65 72 0d 70 | 75 74 20 22 2d 24 22 20 |tester.p|ut "-$" |
|00005980| 62 65 66 6f 72 65 20 74 | 65 73 74 65 72 0d 65 6c |before t|ester.el|
|00005990| 73 65 0d 70 75 74 20 22 | 24 22 20 62 65 66 6f 72 |se.put "|$" befor|
|000059a0| 65 20 74 65 73 74 65 72 | 0d 65 6e 64 20 69 66 0d |e tester|.end if.|
|000059b0| 72 65 74 75 72 6e 20 74 | 65 73 74 65 72 0d 65 6e |return t|ester.en|
|000059c0| 64 20 70 6c 61 63 65 53 | 69 67 6e 0d 0d 66 75 6e |d placeS|ign..fun|
|000059d0| 63 74 69 6f 6e 20 66 69 | 78 64 65 63 69 6d 61 6c |ction fi|xdecimal|
|000059e0| 20 74 65 73 74 65 72 0d | 2d 2d 20 6e 65 65 64 73 | tester.|-- needs|
|000059f0| 20 30 20 69 6e 20 66 72 | 6f 6e 74 20 6f 66 20 64 | 0 in fr|ont of d|
|00005a00| 65 63 2e 20 70 74 2e 0d | 69 66 20 63 68 61 72 20 |ec. pt..|if char |
|00005a10| 31 20 6f 66 20 74 65 73 | 74 65 72 3d 22 2e 22 20 |1 of tes|ter="." |
|00005a20| 74 68 65 6e 0d 70 75 74 | 20 22 30 22 20 62 65 66 |then.put| "0" bef|
|00005a30| 6f 72 65 20 63 68 61 72 | 20 31 20 6f 66 20 74 65 |ore char| 1 of te|
|00005a40| 73 74 65 72 0d 65 6e 64 | 20 69 66 0d 69 66 20 63 |ster.end| if.if c|
|00005a50| 68 61 72 20 31 20 6f 66 | 20 74 65 73 74 65 72 3d |har 1 of| tester=|
|00005a60| 22 2d 22 20 61 6e 64 20 | 63 68 61 72 20 32 20 6f |"-" and |char 2 o|
|00005a70| 66 20 74 65 73 74 65 72 | 3d 22 2e 22 20 74 68 65 |f tester|="." the|
|00005a80| 6e 0d 70 75 74 20 22 30 | 22 20 62 65 66 6f 72 65 |n.put "0|" before|
|00005a90| 20 63 68 61 72 20 32 20 | 6f 66 20 74 65 73 74 65 | char 2 |of teste|
|00005aa0| 72 0d 65 6e 64 20 69 66 | 0d 72 65 74 75 72 6e 20 |r.end if|.return |
|00005ab0| 74 65 73 74 65 72 0d 65 | 6e 64 20 66 69 78 64 65 |tester.e|nd fixde|
|00005ac0| 63 69 6d 61 6c 0d 0d 66 | 75 6e 63 74 69 6f 6e 20 |cimal..f|unction |
|00005ad0| 6e 65 78 74 46 72 65 65 | 6c 69 6e 65 20 74 65 73 |nextFree|line tes|
|00005ae0| 74 65 72 0d 72 65 70 65 | 61 74 20 77 69 74 68 20 |ter.repe|at with |
|00005af0| 78 3d 31 20 74 6f 20 28 | 74 68 65 20 6e 75 6d 62 |x=1 to (|the numb|
|00005b00| 65 72 20 6f 66 20 6c 69 | 6e 65 73 20 6f 66 20 66 |er of li|nes of f|
|00005b10| 6c 64 20 74 65 73 74 65 | 72 20 2b 20 31 29 0d 69 |ld teste|r + 1).i|
|00005b20| 66 20 6c 69 6e 65 20 78 | 20 6f 66 20 66 6c 64 20 |f line x| of fld |
|00005b30| 74 65 73 74 65 72 3d 65 | 6d 70 74 79 20 74 68 65 |tester=e|mpty the|
|00005b40| 6e 0d 72 65 74 75 72 6e | 20 78 0d 65 78 69 74 20 |n.return| x.exit |
|00005b50| 72 65 70 65 61 74 0d 65 | 6e 64 20 69 66 0d 65 6e |repeat.e|nd if.en|
|00005b60| 64 20 72 65 70 65 61 74 | 0d 65 6e 64 20 6e 65 78 |d repeat|.end nex|
|00005b70| 74 46 72 65 65 6c 69 6e | 65 0d 0d 66 75 6e 63 74 |tFreelin|e..funct|
|00005b80| 69 6f 6e 20 6d 61 6b 65 | 44 65 63 69 6d 61 6c 20 |ion make|Decimal |
|00005b90| 65 6e 74 72 79 0d 69 66 | 20 65 6e 74 72 79 20 69 |entry.if| entry i|
|00005ba0| 73 20 61 20 6e 75 6d 62 | 65 72 20 74 68 65 6e 0d |s a numb|er then.|
|00005bb0| 73 65 74 20 6e 75 6d 62 | 65 72 66 6f 72 6d 61 74 |set numb|erformat|
|00005bc0| 20 74 6f 20 22 30 2e 30 | 30 30 22 0d 61 64 64 20 | to "0.0|00".add |
|00005bd0| 30 20 74 6f 20 65 6e 74 | 72 79 0d 72 65 74 75 72 |0 to ent|ry.retur|
|00005be0| 6e 20 65 6e 74 72 79 0d | 65 78 69 74 20 6d 61 6b |n entry.|exit mak|
|00005bf0| 65 44 65 63 69 6d 61 6c | 0d 65 6e 64 20 69 66 0d |eDecimal|.end if.|
|00005c00| 70 75 74 20 77 6f 72 64 | 20 31 20 6f 66 20 65 6e |put word| 1 of en|
|00005c10| 74 72 79 20 69 6e 74 6f | 20 77 68 6f 6c 65 4e 75 |try into| wholeNu|
|00005c20| 6d 0d 70 75 74 20 77 6f | 72 64 20 32 20 6f 66 20 |m.put wo|rd 2 of |
|00005c30| 65 6e 74 72 79 20 69 6e | 74 6f 20 66 72 61 63 0d |entry in|to frac.|
|00005c40| 70 75 74 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |put the |number o|
|00005c50| 66 20 63 68 61 72 73 20 | 6f 66 20 66 72 61 63 20 |f chars |of frac |
|00005c60| 69 6e 74 6f 20 6e 6e 0d | 70 75 74 20 6f 66 66 73 |into nn.|put offs|
|00005c70| 65 74 28 22 2f 22 2c 66 | 72 61 63 29 20 69 6e 74 |et("/",f|rac) int|
|00005c80| 6f 20 64 69 76 69 64 65 | 72 0d 70 75 74 20 63 68 |o divide|r.put ch|
|00005c90| 61 72 20 31 20 74 6f 20 | 28 64 69 76 69 64 65 72 |ar 1 to |(divider|
|00005ca0| 2d 31 29 20 6f 66 20 66 | 72 61 63 20 69 6e 74 6f |-1) of f|rac into|
|00005cb0| 20 6e 75 6d 65 72 0d 70 | 75 74 20 63 68 61 72 20 | numer.p|ut char |
|00005cc0| 28 64 69 76 69 64 65 72 | 2b 31 29 20 74 6f 20 6e |(divider|+1) to n|
|00005cd0| 6e 20 6f 66 20 66 72 61 | 63 20 69 6e 74 6f 20 64 |n of fra|c into d|
|00005ce0| 65 6e 6f 6d 0d 73 65 74 | 20 74 68 65 20 6e 75 6d |enom.set| the num|
|00005cf0| 62 65 72 66 6f 72 6d 61 | 74 20 74 6f 20 22 2e 30 |berforma|t to ".0|
|00005d00| 30 30 22 0d 70 75 74 20 | 6e 75 6d 65 72 2f 64 65 |00".put |numer/de|
|00005d10| 6e 6f 6d 20 69 6e 74 6f | 20 66 72 61 63 0d 72 65 |nom into| frac.re|
|00005d20| 74 75 72 6e 20 28 77 68 | 6f 6c 65 4e 75 6d 26 66 |turn (wh|oleNum&f|
|00005d30| 72 61 63 29 0d 65 6e 64 | 20 6d 61 6b 65 44 65 63 |rac).end| makeDec|
|00005d40| 69 6d 61 6c 0d 0d 66 75 | 6e 63 74 69 6f 6e 20 6d |imal..fu|nction m|
|00005d50| 61 6b 65 53 74 6f 63 6b | 4c 69 6e 65 73 20 78 20 |akeStock|Lines x |
|00005d60| 2d 2d 20 69 6e 20 73 74 | 6f 63 6b 70 6f 72 74 20 |-- in st|ockport |
|00005d70| 63 64 0d 70 75 74 20 28 | 6c 69 6e 65 20 78 20 6f |cd.put (|line x o|
|00005d80| 66 20 66 6c 64 20 22 73 | 74 6f 63 6b 22 20 6f 66 |f fld "s|tock" of|
|00005d90| 20 63 64 20 22 73 74 6f | 63 6b 70 6f 72 74 22 29 | cd "sto|ckport")|
|00005da0| 20 26 22 2c 22 20 69 6e | 74 6f 20 74 65 73 74 0d | &"," in|to test.|
|00005db0| 70 75 74 20 28 6c 69 6e | 65 20 78 20 6f 66 20 66 |put (lin|e x of f|
|00005dc0| 6c 64 20 22 70 72 69 63 | 65 22 20 6f 66 20 63 64 |ld "pric|e" of cd|
|00005dd0| 20 22 73 74 6f 63 6b 70 | 6f 72 74 22 29 20 26 22 | "stockp|ort") &"|
|00005de0| 2c 22 20 61 66 74 65 72 | 20 74 65 73 74 0d 70 75 |," after| test.pu|
|00005df0| 74 20 28 6c 69 6e 65 20 | 78 20 6f 66 20 66 6c 64 |t (line |x of fld|
|00005e00| 20 22 76 61 6c 75 65 22 | 20 6f 66 20 63 64 20 22 | "value"| of cd "|
|00005e10| 73 74 6f 63 6b 70 6f 72 | 74 22 29 20 26 22 2c 22 |stockpor|t") &","|
|00005e20| 20 61 66 74 65 72 20 74 | 65 73 74 0d 73 65 74 20 | after t|est.set |
|00005e30| 63 75 72 73 6f 72 20 74 | 6f 20 62 75 73 79 0d 70 |cursor t|o busy.p|
|00005e40| 75 74 20 28 6c 69 6e 65 | 20 78 20 6f 66 20 66 6c |ut (line| x of fl|
|00005e50| 64 20 22 76 61 6c 63 68 | 61 6e 67 65 22 20 6f 66 |d "valch|ange" of|
|00005e60| 20 63 64 20 22 73 74 6f | 63 6b 70 6f 72 74 22 29 | cd "sto|ckport")|
|00005e70| 20 26 22 2c 22 20 61 66 | 74 65 72 20 74 65 73 74 | &"," af|ter test|
|00005e80| 0d 70 75 74 20 28 6c 69 | 6e 65 20 78 20 6f 66 20 |.put (li|ne x of |
|00005e90| 66 6c 64 20 22 70 63 74 | 22 20 6f 66 20 63 64 20 |fld "pct|" of cd |
|00005ea0| 22 73 74 6f 63 6b 70 6f | 72 74 22 29 20 26 22 2c |"stockpo|rt") &",|
|00005eb0| 22 20 61 66 74 65 72 20 | 74 65 73 74 0d 70 75 74 |" after |test.put|
|00005ec0| 20 28 6c 69 6e 65 20 78 | 20 6f 66 20 66 6c 64 20 | (line x| of fld |
|00005ed0| 22 76 61 6c 64 69 66 66 | 73 22 20 6f 66 20 63 64 |"valdiff|s" of cd|
|00005ee0| 20 22 73 74 6f 63 6b 70 | 6f 72 74 22 29 20 26 22 | "stockp|ort") &"|
|00005ef0| 2c 22 20 61 66 74 65 72 | 20 74 65 73 74 0d 72 65 |," after| test.re|
|00005f00| 74 75 72 6e 20 74 65 73 | 74 0d 65 6e 64 20 6d 61 |turn tes|t.end ma|
|00005f10| 6b 65 53 74 6f 63 6b 4c | 69 6e 65 73 0d 0d 66 75 |keStockL|ines..fu|
|00005f20| 6e 63 74 69 6f 6e 20 61 | 6c 69 67 6e 53 74 6f 63 |nction a|lignStoc|
|00005f30| 6b 73 74 75 66 66 20 74 | 65 73 74 20 2d 2d 20 69 |kstuff t|est -- i|
|00005f40| 74 65 6d 73 20 31 2d 38 | 20 66 6f 72 20 73 74 6f |tems 1-8| for sto|
|00005f50| 63 6b 72 65 67 20 66 6c | 64 0d 64 65 6c 65 74 65 |ckreg fl|d.delete|
|00005f60| 20 69 74 65 6d 20 39 20 | 74 6f 20 31 32 20 6f 66 | item 9 |to 12 of|
|00005f70| 20 74 65 73 74 0d 72 65 | 74 75 72 6e 20 61 6c 69 | test.re|turn ali|
|00005f80| 67 6e 28 74 65 73 74 2c | 22 38 2c 52 2c 20 20 22 |gn(test,|"8,R,  "|
|00005f90| 2c 22 36 2c 4c 2c 20 22 | 2c 22 31 30 2c 52 2c 20 |,"6,L, "|,"10,R, |
|00005fa0| 20 22 2c 22 38 2c 52 2c | 20 20 22 2c 22 31 30 2c | ","8,R,|  ","10,|
|00005fb0| 52 2c 20 20 22 2c 22 38 | 2c 52 2c 20 20 22 2c 22 |R,  ","8|,R,  ","|
|00005fc0| 39 2c 52 2c 20 20 22 2c | 22 38 2c 52 2c 20 22 29 |9,R,  ",|"8,R, ")|
|00005fd0| 0d 65 6e 64 20 61 6c 69 | 67 6e 53 74 6f 63 6b 73 |.end ali|gnStocks|
|00005fe0| 74 75 66 66 0d 0d 66 75 | 6e 63 74 69 6f 6e 20 69 |tuff..fu|nction i|
|00005ff0| 74 65 6d 61 6c 69 67 6e | 20 74 65 73 74 20 2d 2d |temalign| test --|
|00006000| 20 74 72 61 6e 73 2e 20 | 6e 6f 74 65 73 0d 72 65 | trans. |notes.re|
|00006010| 74 75 72 6e 20 61 6c 69 | 67 6e 28 74 65 73 74 2c |turn ali|gn(test,|
|00006020| 22 38 2c 52 2c 20 20 22 | 2c 22 33 38 2c 4c 2c 20 |"8,R,  "|,"38,L, |
|00006030| 20 22 2c 22 31 30 2c 52 | 2c 20 20 22 29 0d 65 6e | ","10,R|,  ").en|
|00006040| 64 20 69 74 65 6d 61 6c | 69 67 6e 0d 0d 66 75 6e |d itemal|ign..fun|
|00006050| 63 74 69 6f 6e 20 72 65 | 70 6f 72 74 41 6c 69 67 |ction re|portAlig|
|00006060| 6e 20 74 65 73 74 20 2d | 2d 20 72 65 70 6f 72 74 |n test -|- report|
|00006070| 20 62 6f 64 79 0d 72 65 | 74 75 72 6e 20 61 6c 69 | body.re|turn ali|
|00006080| 67 6e 28 74 65 73 74 2c | 22 33 30 2c 4c 2c 20 20 |gn(test,|"30,L,  |
|00006090| 22 2c 22 31 32 2c 52 2c | 20 20 22 2c 22 73 3d a1 |","12,R,|  ","s=.|
|000060a0| 22 29 0d 65 6e 64 20 72 | 65 70 6f 72 74 41 6c 69 |").end r|eportAli|
|000060b0| 67 6e 0d 0d 66 75 6e 63 | 74 69 6f 6e 20 72 65 70 |gn..func|tion rep|
|000060c0| 6f 72 74 41 6c 69 67 6e | 32 20 74 65 73 74 20 2d |ortAlign|2 test -|
|000060d0| 2d 20 6d 75 6c 74 69 49 | 74 65 6d 20 6e 6f 74 65 |- multiI|tem note|
|000060e0| 73 20 66 6f 72 20 72 65 | 70 6f 72 74 20 62 6f 64 |s for re|port bod|
|000060f0| 79 0d 72 65 74 75 72 6e | 20 61 6c 69 67 6e 28 74 |y.return| align(t|
|00006100| 65 73 74 2c 22 32 36 2c | 4c 2c 20 20 22 2c 22 31 |est,"26,|L,  ","1|
|00006110| 32 2c 52 2c 20 20 22 2c | 22 73 3d a1 22 29 0d 65 |2,R,  ",|"s=.").e|
|00006120| 6e 64 20 72 65 70 6f 72 | 74 41 6c 69 67 6e 32 0d |nd repor|tAlign2.|
|00006130| 0d 66 75 6e 63 74 69 6f | 6e 20 6d 6f 76 65 72 20 |.functio|n mover |
|00006140| 73 70 61 63 65 72 20 2d | 2d 20 73 69 7a 65 20 6f |spacer -|- size o|
|00006150| 66 20 6f 66 66 73 65 74 | 20 6f 66 20 76 61 6c 75 |f offset| of valu|
|00006160| 65 0d 72 65 74 75 72 6e | 20 28 33 30 2d 73 70 61 |e.return| (30-spa|
|00006170| 63 65 72 29 26 22 2c 52 | 2c 20 22 20 2d 2d 20 34 |cer)&",R|, " -- 4|
|00006180| 30 20 3d 20 72 69 67 68 | 74 20 77 69 64 74 68 20 |0 = righ|t width |
|00006190| 66 6f 72 20 66 6c 64 0d | 65 6e 64 20 6d 6f 76 65 |for fld.|end move|
|000061a0| 72 0d 0d 66 75 6e 63 74 | 69 6f 6e 20 73 70 20 73 |r..funct|ion sp s|
|000061b0| 70 61 63 65 72 0d 72 65 | 70 65 61 74 20 77 69 74 |pacer.re|peat wit|
|000061c0| 68 20 78 3d 31 20 74 6f | 20 73 70 61 63 65 72 0d |h x=1 to| spacer.|
|000061d0| 70 75 74 20 73 70 61 63 | 65 20 61 66 74 65 72 20 |put spac|e after |
|000061e0| 74 65 73 74 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |test.end| repeat.|
|000061f0| 72 65 74 75 72 6e 20 74 | 65 73 74 0d 65 6e 64 20 |return t|est.end |
|00006200| 73 70 0d 0d 66 75 6e 63 | 74 69 6f 6e 20 61 6c 69 |sp..func|tion ali|
|00006210| 67 6e 49 74 20 6c 69 73 | 74 2c 53 70 61 63 65 72 |gnIt lis|t,Spacer|
|00006220| 0d 72 65 74 75 72 6e 20 | 61 6c 69 67 6e 28 6c 69 |.return |align(li|
|00006230| 73 74 2c 22 34 30 2c 4c | 2c 20 22 2c 22 73 3d a1 |st,"40,L|, ","s=.|
|00006240| 22 2c 6d 6f 76 65 72 28 | 53 70 61 63 65 72 29 29 |",mover(|Spacer))|
|00006250| 0d 65 6e 64 20 61 6c 69 | 67 6e 49 74 0d 0d 66 75 |.end ali|gnIt..fu|
|00006260| 6e 63 74 69 6f 6e 20 73 | 75 62 0d 72 65 74 75 72 |nction s|ub.retur|
|00006270| 6e 20 22 20 20 2d 22 0d | 65 6e 64 20 73 75 62 0d |n "  -".|end sub.|
|00006280| 0d 66 75 6e 63 74 69 6f | 6e 20 73 75 62 73 75 62 |.functio|n subsub|
|00006290| 0d 72 65 74 75 72 6e 20 | 22 20 20 20 20 a5 22 0d |.return |"    .".|
|000062a0| 65 6e 64 20 73 75 62 73 | 75 62 0d 0d 66 75 6e 63 |end subs|ub..func|
|000062b0| 74 69 6f 6e 20 63 68 65 | 63 6b 49 66 54 68 65 72 |tion che|ckIfTher|
|000062c0| 65 20 6e 61 6d 65 2c 77 | 68 69 63 68 4c 69 73 74 |e name,w|hichList|
|000062d0| 20 2d 2d 20 69 66 20 66 | 75 6c 6c 46 69 6e 64 20 | -- if f|ullFind |
|000062e0| 6e 6f 74 20 73 70 65 63 | 69 66 69 63 20 65 6e 6f |not spec|ific eno|
|000062f0| 75 67 68 0d 73 65 74 20 | 63 75 72 73 6f 72 20 74 |ugh.set |cursor t|
|00006300| 6f 20 62 75 73 79 0d 70 | 75 74 20 22 6e 6f 74 46 |o busy.p|ut "notF|
|00006310| 6f 75 6e 64 22 20 69 6e | 74 6f 20 66 66 0d 72 65 |ound" in|to ff.re|
|00006320| 70 65 61 74 20 77 69 74 | 68 20 78 3d 31 20 74 6f |peat wit|h x=1 to|
|00006330| 20 28 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 | (the nu|mber of |
|00006340| 6c 69 6e 65 73 20 6f 66 | 20 66 6c 64 20 77 68 69 |lines of| fld whi|
|00006350| 63 68 4c 69 73 74 20 6f | 66 20 63 64 20 31 29 0d |chList o|f cd 1).|
|00006360| 69 66 20 28 6c 69 6e 65 | 20 78 20 6f 66 20 66 6c |if (line| x of fl|
|00006370| 64 20 77 68 69 63 68 4c | 69 73 74 20 6f 66 20 63 |d whichL|ist of c|
|00006380| 64 20 31 29 3d 6e 61 6d | 65 20 74 68 65 6e 0d 70 |d 1)=nam|e then.p|
|00006390| 75 74 20 22 66 6f 75 6e | 64 22 20 69 6e 74 6f 20 |ut "foun|d" into |
|000063a0| 66 66 0d 65 78 69 74 20 | 72 65 70 65 61 74 0d 65 |ff.exit |repeat.e|
|000063b0| 6e 64 20 69 66 0d 65 6e | 64 20 72 65 70 65 61 74 |nd if.en|d repeat|
|000063c0| 0d 72 65 74 75 72 6e 20 | 66 66 26 22 2c 22 26 78 |.return |ff&","&x|
|000063d0| 0d 65 6e 64 20 63 68 65 | 63 6b 49 66 54 68 65 72 |.end che|ckIfTher|
|000063e0| 65 0d 0d 66 75 6e 63 74 | 69 6f 6e 20 66 69 6e 64 |e..funct|ion find|
|000063f0| 53 61 6d 65 49 74 65 6d | 20 6e 61 6d 65 2c 77 68 |SameItem| name,wh|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.